emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/parser-generator 53ae129 245/434: Commented out useless


From: ELPA Syncer
Subject: [elpa] externals/parser-generator 53ae129 245/434: Commented out useless code
Date: Mon, 29 Nov 2021 15:59:50 -0500 (EST)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]