branch: externals/parser-generator
commit d85a3ae246b4fc45f254573cfd8f5bdc5346c69f
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Passing more tests
---
parser-generator.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/parser-generator.el b/parser-generator.el
index f0c30a7cc5..63df0175b2 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -1660,7 +1660,7 @@
(nth input-tape-index input-tape))
(parser-generator--debug
(message
- "input-symbol: %S"
+ "\ninput-symbol: %S"
input-symbol))
(cond
@@ -1730,8 +1730,8 @@
(setf
(nth expanded-list-index expanded-lists)
(append
- (nth expanded-list-index expanded-lists)
- (list input-symbol)))
+ (list input-symbol)
+ (nth expanded-list-index expanded-lists)))
(setq
expanded-list-index
(1+ expanded-list-index))))
@@ -1771,6 +1771,7 @@
;; 3. Process each unprocessed list and expand into a list of
lists of terminals and the e-identifier
(let ((unprocessed-data)
(unprocessed-list)
+ (unprocessed-list-length)
(unprocessed-list-index)
(processed-list))
(while unprocessed-lists
@@ -1821,7 +1822,8 @@
skip-flag
t)
(parser-generator--debug
- (message "Unprocessed list: %S starts with
e-identifier, skipping")))
+ (message
+ "Unprocessed list starts with e-identifier,
skipping")))
(cond
