branch: externals/parser-generator
commit 53ae1291331a3eb21ca18ff15145065011065a16
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
Commented out useless code
---
parser-generator-lr.el | 58 +++++++++++++++++++++++++-------------------------
1 file changed, 29 insertions(+), 29 deletions(-)
diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index c132c73..a8c06e9 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -695,35 +695,35 @@
lr-item-suffix-rest-first
(list eof-list)))
- ;; When |FIRST| < k add EOF symbols
- (let ((new-first))
- (dolist
- (first-item
- lr-item-suffix-rest-first)
- (when (
- <
- (length first-item)
- parser-generator--look-ahead-number)
- (setq
- first-item
- (reverse
- first-item))
- (while (<
- (length first-item)
- parser-generator--look-ahead-number)
- (push
- parser-generator--eof-identifier
- first-item))
- (setq
- first-item
- (reverse first-item)))
- (push
- first-item
- new-first))
- (setq
- lr-item-suffix-rest-first
- (reverse
- new-first)))
+ ;; ;; When |FIRST| < k add EOF symbols
+ ;; (let ((new-first))
+ ;; (dolist
+ ;; (first-item
+ ;; lr-item-suffix-rest-first)
+ ;; (when (
+ ;; <
+ ;; (length first-item)
+ ;; parser-generator--look-ahead-number)
+ ;; (setq
+ ;; first-item
+ ;; (reverse
+ ;; first-item))
+ ;; (while (<
+ ;; (length first-item)
+ ;; parser-generator--look-ahead-number)
+ ;; (push
+ ;; parser-generator--eof-identifier
+ ;; first-item))
+ ;; (setq
+ ;; first-item
+ ;; (reverse first-item)))
+ ;; (push
+ ;; first-item
+ ;; new-first))
+ ;; (setq
+ ;; lr-item-suffix-rest-first
+ ;; (reverse
+ ;; new-first)))
(parser-generator--debug
(message
