[elpa] externals/parser-generator 7b6c1dc 186/434: First function passing first complex grammar test

[ELPA Syncer]

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

    First function passing first complex grammar test
---
 parser-generator.el           | 10 ++++------
 test/parser-generator-test.el |  2 --
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/parser-generator.el b/parser-generator.el
index 4b7af34..b3fbbc4 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -684,14 +684,13 @@
                       (setq f-p-set (parser-generator--distinct f-p-set))
                       (parser-generator--debug
                        (message
-                        "F_%s_%s(%s) = %s"
+                        "F_%s(%s) = %s"
                         i
-                        k
                         production-lhs
-                        (list rhs-expanded-full (nreverse f-p-set))))
+                        (list rhs-expanded-full (reverse f-p-set))))
                       (puthash
                        production-lhs
-                       (list rhs-expanded-full (nreverse f-p-set))
+                       (list rhs-expanded-full (reverse f-p-set))
                        f-set))))
 
                 (puthash i f-set f-sets)
@@ -810,9 +809,8 @@
                             (progn
                               (parser-generator--debug
                                (message
-                                "Sub-terminal-sets F_%s_%s(%s) = %s (%d)"
+                                "Sub-terminal-sets F_%s(%s) = %s (%d)"
                                 (1- i)
-                                k
                                 rhs-element
                                 sub-terminal-sets
                                 (length sub-terminal-sets)))
diff --git a/test/parser-generator-test.el b/test/parser-generator-test.el
index fa5e8d2..aa42d97 100644
--- a/test/parser-generator-test.el
+++ b/test/parser-generator-test.el
@@ -253,8 +253,6 @@
     (parser-generator--first 'S)))
   (message "Passed first 3 with semi-complex grammar")
 
-  ;; TODO Need to adjust expanded-flag, A -> B a is not expanded below
-
   (parser-generator-set-grammar '((S A B C) (a b c) ((S (A B)) (A (B a) e) (B 
(C b) C) (C c e)) S))
   (parser-generator-set-look-ahead-number 1)
   (parser-generator-process-grammar)