branch: externals/parser-generator
commit 9a3240bc453baa23d5e4694a99dd0f04878ecaa1
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Fixed bug with error throwing on false lr item sets
---
parser-generator-lr.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 1311125..725f328 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -714,14 +714,15 @@
(when (equal a-follow b-suffix-follow-eff-item)
(when
signal-on-false
- (signal
- 'error
- (format
- "Inconsistent grammar! %s (index: %d) conflicts with %s
(index: %d)"
- a
- a-index
- b
- b-index)))
+ (error
+ "Inconsistent grammar! %S (index: %d) with look-ahead %S
conflicts with %S (index: %d) with look-ahead %S in sets: %S"
+ a
+ a-index
+ a-follow
+ b
+ b-index
+ b-suffix-follow-eff-item
+ lr-item-sets))
(setq valid-p nil))))
(setq b-index (1+ b-index))))
(setq a-index (1+ a-index)))
