branch: externals/a68-mode
commit 0dc44876302318dbb08c0d624cae0f04d700320c
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    Fix grammar for UNTIL to reflect new syntax of GNU ALGOL68
---
 a68-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index ef50711d4f..8b4deb707f 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -142,9 +142,10 @@
                              "DO" exp "OD")
                             ("FOR" exp "BY" exp "TO" exp
                              "DO" exp "OD")
-                            ("-do-" "DO" exp "UNTIL" exp "OD")
                             ("-to-" "TO" exp "DO" exp "OD")
-                            ("WHILE" exp "DO" exp "OD"))
+                            ("WHILE" exp "DO" exp "OD")
+                            ("WHILE" exp "UNTIL" exp "DO" exp "OD")
+                            ("-until" "UNTIL" exp "DO" exp "OD"))
                       (insts (insts ";" insts)
                              (id ":=" exp)
                              ("IF" exp "THEN" insts "FI")

Reply via email to