branch: externals/parser-generator commit da14fbd07c3398c0f1a9cc770cde62046e5b3ba1 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Passing more metadata about terminals to SDT
---
parser-generator-lr-export.el | 10 ++++++----
parser-generator-lr.el | 2 +-
2 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/parser-generator-lr-export.el b/parser-generator-lr-export.el
index 2cc54ca..3c052e2 100644
--- a/parser-generator-lr-export.el
+++ b/parser-generator-lr-export.el
@@ -779,10 +779,10 @@
(let ((symbol-translation
(pop symbol-translations)))
(push
- symbol-translation
+ (car symbol-translation)
popped-items-meta-contents)
(push
- nil
+ (car (cdr symbol-translation))
popped-items-terminals)
(puthash
temp-hash-key
@@ -830,8 +830,10 @@
temp-hash-key
translation-symbol-table)))
(push
- partial-translation
- symbol-translations)
+ (list
+ partial-translation
+ popped-items-terminals)
+ symbol-translations)
(puthash
temp-hash-key
symbol-translations
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index e68fe5f..7522b5f 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -2074,7 +2074,7 @@
(push
(list
partial-translation
- (if (= (length
popped-items-terminals) 1) popped-items-terminals nil))
+ popped-items-terminals)
symbol-translations)
(puthash
temp-hash-key
