branch: externals/a68-mode
commit dac4091687a10e05b7ee58a7558fa9bd50c09aca
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Restore working rules for type-decl in SMIE grammar
---
a68-mode.el | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 845c7c0398..0da6fa14ed 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -201,11 +201,12 @@
("BEGIN" exp "END")
("MODULE" exp "DEF" exp "FED")
("MODULE" exp "DEF" exp "POSTLUDE" exp "FED"))
- (type-decl (type-decl "," type-decl)
- ("MODE" ids "=" type-decl*))
- (type-decl* ("STRUCT" args)
- ("UNION" args)
- ("PROC" args "-archor-" ids))
+ (type-decl ("MODE" type-decl*))
+ (type-decl* (type-decl* "," type-decl*)
+ (id "=" type-decl**))
+ (type-decl** ("STRUCT" args)
+ ("UNION" args)
+ ("PROC" args "-archor-" ids))
(op-decl (op-decl "," op-decl)
("OP" ids "=" args ids ":" exp))
(proc-decl (proc-decl "," proc-decl)
@@ -382,11 +383,12 @@
("begin" exp "end")
("module" exp "def" exp "fed")
("module" exp "def" exp "postlude" exp "fed"))
- (type-decl (type-decl "," type-decl)
- ("mode" ids "=" type-decl*))
- (type-decl* ("struct" args)
- ("union" args)
- ("proc" args "-archor-" ids))
+ (type-decl ("mode" type-decl*))
+ (type-decl* (type-decl* "," type-decl*)
+ (id "=" type-decl**))
+ (type-decl** ("struct" args)
+ ("union" args)
+ ("proc" args "-archor-" ids))
(op-decl (op-decl "," op-decl)
("op" ids "=" args ids ":" exp))
(proc-decl (proc-decl "," proc-decl)
