[elpa] externals/parser-generator b2193b2 251/434: GOTO-items now only contain one symbol in parse function

[ELPA Syncer]

branch: externals/parser-generator
commit b2193b23127e94b9959795dc50eedf940e7842b8
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    GOTO-items now only contain one symbol in parse function
---
 parser-generator-lr.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 09732a4..5e0183c 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -975,8 +975,11 @@
                 ;; there is no next input symbol or g(a) is undefined, halt
                 ;; and declare error.
 
-                (let ((a look-ahead)
-                      (a-full look-ahead-full))
+                (let ((a (list (car look-ahead)))
+                      (a-full (list (car look-ahead-full))))
+                  (parser-generator--debug
+                   (message "shift a: %s" a)
+                   (message "shift a-full: %s" a-full))
                   (let ((goto-table
                          (gethash
                           table-index
@@ -999,7 +1002,9 @@
                              (message "shift goto-item: %s" goto-item)
                              (message "shift goto-item-symbol: %s" 
goto-item-symbol))
 
-                            (when (equal goto-item-symbol a)
+                            (when (equal
+                                   goto-item-symbol
+                                   a)
                               (setq next-index goto-item-next-index)
                               (setq searching-match nil))))