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

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

[elpa] externals/parser-generator efe98cb71a 14/29: More tweaks of FIRST


From: Christian Johansson
Subject: [elpa] externals/parser-generator efe98cb71a 14/29: More tweaks of FIRST and E-FREE-FIRST
Date: Sat, 12 Feb 2022 02:24:44 -0500 (EST)

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

    More tweaks of FIRST and E-FREE-FIRST
---
 parser-generator.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/parser-generator.el b/parser-generator.el
index f217b8b549..701d9e45ba 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -1603,10 +1603,9 @@
 
   ;; Cache first calculation
   (let ((hash-key (format "%S-%s" β disallow-e-first)))
-    (unless
-        (gethash
-         hash-key
-         parser-generator--table-firsts)
+    (unless (gethash
+             hash-key
+             parser-generator--table-firsts)
 
       ;; Perform optional validation of inpuit
       (unless (or
@@ -1695,7 +1694,7 @@
                       (while (< expanded-list-index expanded-list-count)
                         (setf
                          (nth expanded-list-index expanded-lists)
-                         (nreverse
+                         (reverse
                           (append
                            (reverse
                             (nth expanded-list-index expanded-lists))
@@ -1721,9 +1720,9 @@
                   (while (< expanded-list-index expanded-list-count)
                     (setf
                      (nth expanded-list-index expanded-lists)
-                     (nreverse
+                     (reverse
                       (append
-                       (nreverse
+                       (reverse
                         (nth expanded-list-index expanded-lists))
                        (list input-symbol))))
                     (setq
@@ -1913,7 +1912,7 @@
                       ;; Reverse list
                       (setq
                        processed-list
-                       (nreverse
+                       (reverse
                         processed-list))
 
                       ;; Make sure only distinct sets are added to list
@@ -1956,6 +1955,11 @@
             processed-lists
             'parser-generator--sort-list)))
 
+        (parser-generator--debug
+         (message
+          "processed-lists: %S"
+          processed-lists))
+
         ;; Store in memory cache
         (puthash
          hash-key



reply via email to

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