[elpa] externals/a68-mode 6170a32c97 047/110: implement the loop bits for smie

[ELPA Syncer]

branch: externals/a68-mode
commit 6170a32c97888925bd5d638b604b37100ad42567
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>

    implement the loop bits for smie
---
 a68-mode.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/a68-mode.el b/a68-mode.el
index 391ded93d2..62a813a595 100644
--- a/a68-mode.el
+++ b/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 "=" "/=" ":=" ":=:" ":/=:"
                              "+" "-" "*" "/")))))