branch: externals/parser-generator
commit 79565f45db77baac7de2fe7f2f736243087cecad
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
Fixed sorting of columns in GOTO-table
---
parser.el | 1 +
test/parser-test.el | 4 ++--
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/parser.el b/parser.el
index 18872a2..7c8e570 100644
--- a/parser.el
+++ b/parser.el
@@ -764,6 +764,7 @@
(setq lr-item-set-new-index (1+
lr-item-set-new-index)))))))
(setq iteration (1+ iteration))
+ (setq goto-table-table (sort goto-table-table 'parser--sort-list))
(push `(,lr-item-set-index ,goto-table-table) goto-table)))
(setq parser--goto-table (sort goto-table 'parser--sort-list))))
diff --git a/test/parser-test.el b/test/parser-test.el
index b69cc58..6a9372a 100644
--- a/test/parser-test.el
+++ b/test/parser-test.el
@@ -241,10 +241,10 @@
'((0 ((S 1)))
(1 ((a 2)))
(2 ((S 3)))
- (3 ((b 5) (a 4)))
+ (3 ((a 4) (b 5)))
(4 ((S 6)))
(5 nil)
- (6 ((b 7) (a 4)))
+ (6 ((a 4) (b 7)))
(7 nil))
parser--goto-table))