branch: externals/a68-mode
commit 3d0763ab64209b1efc36f4174970341a4dfdf235
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Add nonterminal closed-clause to grammar
---
a68-mode.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 506632be03..68b63e5870 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -369,8 +369,6 @@ with the equivalent upcased form."
(exp (ids)
(exp "of" exp)
(exp "[" exp "]")
- ("(" exp ")")
- ("begin" exp "end")
("module" exp "def" exp "fed")
("module" exp "def" exp "postlude" exp "fed"))
;; Declarations:
@@ -496,8 +494,12 @@ with the equivalent upcased form."
;; series.
(enquiry-clause (serial))
;; Clauses:
- (enclosed-clause (choice-clause)
+ (enclosed-clause (closed-clause)
+ (choice-clause)
(loop-clause))
+ ;; Closed clause.
+ (closed-clause ("begin" serial "end")
+ ("(" serial ")"))
;; Choice clauses
;; choice clause :
;; choice start, chooser choice clause, choice finish.
