commit - b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
commit + 6170a32c97888925bd5d638b604b37100ad42567
blob - 391ded93d2fe257e336493aebeaf9c2cf508a16a
blob + 62a813a595bf00e34d417fb1f156b03cad4a556a
--- a68-mode.el
+++ a68-mode.el
(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 "=" "/=" ":=" ":=:" ":/=:"
"+" "-" "*" "/")))))