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

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

[elpa] externals/parser-generator 3ba5250 090/434: Removed debugging stu


From: ELPA Syncer
Subject: [elpa] externals/parser-generator 3ba5250 090/434: Removed debugging stuff
Date: Mon, 29 Nov 2021 15:59:15 -0500 (EST)

branch: externals/parser-generator
commit 3ba52501204348b0fafabaee6cb7f640b1d5d7c0
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Removed debugging stuff
---
 parser.el | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/parser.el b/parser.el
index 7c8e570..c629be9 100644
--- a/parser.el
+++ b/parser.el
@@ -709,12 +709,8 @@
       (let ((popped-item)
             (lr-item-set-index)
             (lr-items)
-            (goto-table-table)
-            (iteration 1)
-            (max-iterations 100))
-        (while (and
-                unmarked-lr-item-sets
-                (< iteration max-iterations))
+            (goto-table-table))
+        (while unmarked-lr-item-sets
 
           (setq popped-item (pop unmarked-lr-item-sets))
           (setq lr-item-set-index (car popped-item))
@@ -763,7 +759,6 @@
                     (push `(,lr-item-set-new-index ,prefix-lr-items) 
unmarked-lr-item-sets)
                     (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))))



reply via email to

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