branch: externals/parser-generator commit 53ae1291331a3eb21ca18ff15145065011065a16 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
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