[elpa] externals/parser-generator ab4b4db 021/434: Passed second FIRST test again

[ELPA Syncer]

branch: externals/parser-generator
commit ab4b4db13b943bf7fc44324f734f20c3bdc68366
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@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