Commit Diff


commit - b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
commit + 6170a32c97888925bd5d638b604b37100ad42567
blob - 391ded93d2fe257e336493aebeaf9c2cf508a16a
blob + 62a813a595bf00e34d417fb1f156b03cad4a556a
--- a68-mode.el
+++ a68-mode.el
@@ -127,7 +127,15 @@
                       (exprs (exprs "," exprs)
                              (exprs ";" exprs)
                              (exprs ":" exprs)
-                             (expr)))
+                             (expr))
+                      (loop ("FOR" exprs "FROM" exprs "TO" exprs
+                             "BY" exprs "DO" exprs "OD")
+                            ("FOR" exprs "FROM" exprs "TO" exprs
+                             "DO" exprs "OD")
+                            ("FOR" exprs "BY" exprs "TO" exprs
+                             "DO" exprs "OD")
+                            ;; ("TO" exprs "DO" exprs "OD")
+                            ("WHILE" exprs "DO" exprs "OD")))
                     '((assoc ";" "," ":"))
                     '((assoc "=" "/=" ":=" ":=:" ":/=:"
                              "+" "-" "*" "/")))))