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