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

    Fix SMIE rules for choice-using-integral clauses with ouse parts
---
 a68-mode.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index 1fb8aa24f7..a4c425e3c9 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -466,10 +466,12 @@ with the equivalent upcased form."
                     "|:" enquiry-clause "|" serial ")")
                    ("case" enquiry-clause "in" specs "esac")
                    ("case" enquiry-clause "in" specs "out" serial "esac")
-                   ("case" enquiry-clause "in" specs "ouse" serial "esac")
+                   ("case" enquiry-clause "in" specs "ouse" enquiry-clause 
"in" specs "esac")
+                   ("case" enquiry-clause "in" specs "ouse" enquiry-clause 
"in" specs "out" serial "esac")
                    ("(" enquiry-clause "|" specs ")")
                    ("(" enquiry-clause "|" specs "|" serial ")")
-                   ("(" enquiry-clause "|" specs "|:" serial ")"))
+                   ("(" enquiry-clause "|" specs "|:" enquiry-clause "|" specs 
")")
+                   ("(" enquiry-clause "|" specs "|:" enquiry-clause "|" specs 
"|" serial ")"))
     ;; Loop clauses.
     ;;   loop clause :
     ;;     loop insert, for part, (from part), (by part), (to part), repeating 
part.

Reply via email to