[elpa] externals/parser-generator c606043 389/434: Passing all tests with new precedence generation

[ELPA Syncer]

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

    Passing all tests with new precedence generation
---
 parser-generator-lr.el           | 18 ++++++++++--------
 test/parser-generator-lr-test.el |  7 +++++--
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 1919b35..00f0161 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -564,10 +564,11 @@
                                                  production-number
                                                  (nth 2 b))
                                                 (progn
-                                                  (message
-                                                   "'%s' takes precedence over 
'%s'"
-                                                   a
-                                                   b)
+                                                  (parser-generator--debug
+                                                   (message
+                                                    "'%s' takes precedence 
over '%s'"
+                                                    a
+                                                    b))
                                                   ;; Remove b from 
added-actions
                                                   (let ((new-action-table))
                                                     (dolist (action-item 
action-table)
@@ -582,10 +583,11 @@
                                                      action-table
                                                      (reverse
                                                       new-action-table))))
-                                              (message
-                                               "'%s' takes precedence over 
'%s'"
-                                               b
-                                               a)
+                                              (parser-generator--debug
+                                               (message
+                                                "'%s' takes precedence over 
'%s'"
+                                                b
+                                                a))
                                               ;; Skip rest of this iteration
                                               (setq
                                                skip-symbol
diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index 3137457..1e3de75 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -219,8 +219,7 @@
    '%prec)
   (setq
    parser-generator-lr--precedence-comparison-function
-   (lambda(a-type a-value b-type b-value)
-     (message "(parser-generator-lr--precedence-comparison-function %S %S %S 
%S)" a-type a-value b-type b-value)
+   (lambda(a-type a-value _b-type b-value)
      (cond
 
       ((and
@@ -858,6 +857,10 @@
   "Test `parser-generator-lr-parse'."
   (message "Started tests for (parser-generator-lr-parse)")
 
+  (parser-generator-set-look-ahead-number 1)
+  (setq
+   parser-generator--e-identifier
+   'e)
   (parser-generator-set-grammar
    '((Sp S) (a b) ((Sp S) (S (S a S b)) (S e)) Sp))
   (parser-generator-set-look-ahead-number 1)