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.