branch: externals/parser-generator
commit 7ba32ff598c04ebeb05e46a508731f3649a0957d
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Only save translation if it produces anything
---
parser-generator-lr.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 7409c30..9692d47 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -639,7 +639,8 @@
production-number)
popped-items-meta-contents)))
(message "Partial-translation: %s"
partial-translation)
- (push partial-translation translation))))
+ (when partial-translation
+ (push partial-translation translation)))))
(let ((new-table-index (car pushdown-list)))
(let ((goto-table (gethash new-table-index
parser-generator-lr--goto-tables)))
