[elpa] externals/parser-generator fb29641 337/434: Passing old context-sensitive precedence example with new structure

[ELPA Syncer]

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

    Passing old context-sensitive precedence example with new structure
---
 parser-generator-lr.el           | 10 ++++++----
 test/parser-generator-lr-test.el |  2 +-
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index bcfdca2..2e1e0ee 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -84,10 +84,11 @@
               (gethash
                attribute
                parser-generator-lr--global-precedence-attributes-table)
-            (puthash
-             item
-             `(,attribute ,line-index)
-             parser-generator-lr--global-precedence-table)))
+            (dolist (item items)
+              (puthash
+               item
+               `(,attribute ,line-index)
+               parser-generator-lr--global-precedence-table))))
         (setq
          line-index
          (1+ line-index))))))
@@ -982,6 +983,7 @@
 
 (defun parser-generator-lr--symbol-takes-precedence-p (a b)
   "Return t if A takes precedence over B, otherwise nil."
+  (message "(parser-generator-lr--symbol-takes-precedence-p %S %S) table %S" a 
b parser-generator-lr--global-precedence-table)
   (let ((takes-precedence)
         (a-global-reference)
         (a-precedence)
diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index 83b7823..36e3711 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -127,7 +127,7 @@
    '(%precedence))
   (setq
    parser-generator-lr--global-precedence-attributes
-   '(FIRST))
+   '(%precedence))
   (setq
    parser-generator--global-declaration
    '((%precedence FIRST)))