branch: externals/parser-generator
commit ab4b4db13b943bf7fc44324f734f20c3bdc68366
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Passed second FIRST test again
---
parser.el | 4 ++--
test/parser-test.el | 9 +++------
2 files changed, 5 insertions(+), 8 deletions(-)
diff --git a/parser.el b/parser.el
index 1ca0e99..2ac43be 100644
--- a/parser.el
+++ b/parser.el
@@ -11,7 +11,7 @@
(defvar parser--debug
- nil
+ t
"Whether to print debug messages or not.")
(defvar parser--table-terminal-p
@@ -424,7 +424,7 @@
((equal rhs-type 'TERMINAL)
(when all-leading-terminals-p
- (setq leading-terminals (append leading-terminals
rhs-element))
+ (setq leading-terminals (append leading-terminals (list
rhs-element)))
(setq leading-terminals-count (1+
leading-terminals-count))))))
(setq input-tape-index (1+ input-tape-index)))
(when (> leading-terminals-count 0)
diff --git a/test/parser-test.el b/test/parser-test.el
index 3543e12..9916fea 100644
--- a/test/parser-test.el
+++ b/test/parser-test.el
@@ -35,14 +35,11 @@
(parser--first 'S)))
(message "Passed first 1 with rudimentary grammar")
+ (parser--set-grammar '((S) ("a" "b" "c") ((S ("a" "b" "c"))) S) 2)
(should
(equal
- '("a" "b")
- (parser--first
- 2
- 'S
- '(
- (S "a" "b" "c")))))
+ '(("a" "b"))
+ (parser--first 'S)))
(message "Passed first 2 with rudimentary grammar")
(should
