branch: externals/parser-generator
commit f213255479711ab547e594bf09535f7be563933d
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Passed all old unit tests again after translation refactor
---
parser-generator.el | 2 +-
test/parser-generator-lr-test.el | 7 +++----
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/parser-generator.el b/parser-generator.el
index befa2ca..e75424f 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -17,7 +17,7 @@
(defvar
parser-generator--debug
- t
+ nil
"Whether to print debug messages or not.")
(defvar
diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index 638137e..f5eea17 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -1242,8 +1242,8 @@
(
(S (E $))
(E
- (E "*" B (lambda(args) (let ((ret (nth 0 args))) (when (nth 2 args)
(setq ret (append ret `(" x " ,(nth 2 args))))) ret)))
- (E "+" B (lambda(args) (let ((ret (nth 0 args))) (when (nth 2 args)
(setq ret (append ret `(" . " ,(nth 2 args))))) ret)))
+ (E "*" B (lambda(args) (let ((ret (list (nth 0 args)))) (when (nth 2
args) (setq ret (append ret `(" x " ,(nth 2 args))))) ret)))
+ (E "+" B (lambda(args) (let ((ret (list (nth 0 args)))) (when (nth 2
args) (setq ret (append ret `(" . " ,(nth 2 args))))) ret)))
(B)
)
(B
@@ -1274,10 +1274,9 @@
(when (<= end (point-max))
(buffer-substring-no-properties start end))))))
- (parser-generator-lr-translate)
(should
(equal
- '((("1")) " . " ("1"))
+ '("1" " . " "1")
(parser-generator-lr-translate)))
(message "Passed translation k=0")
(kill-buffer))
