branch: externals/a68-mode
commit c26879c3c60271fa18673cc34f27d42f09d452ef
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>

    Labeled units are components of serial clauses.
---
 a68-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/a68-mode.el b/a68-mode.el
index 3241c38da7..e1d6929754 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -401,7 +401,6 @@ with the equivalent upcased form."
     ;;    jump ; enclosed clause.
     (unit (id ":=" exp)
           ; (routine-text)
-          ("-label-" unit)
           (assignation)
           (pseudo-operator))
     (assignation (tertiary ":=" unit))
@@ -578,6 +577,7 @@ with the equivalent upcased form."
     (pragmat ("-pr-" exp "pr"))
     (serial (serial ";" serial)
             (unit)
+            ("-label-" unit)
             (declaration)
             (pragmat)))
   "Algol 68 BNF operator precedence grammar to use with SMIE")

Reply via email to