[elpa] externals/parser-generator d96c81cb84 06/19: Passing lr-tests after refactor

[Christian Johansson]

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

    Passing lr-tests after refactor
---
 test/parser-generator-lr-test.el | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index a5d9d287dd..b021dd64a6 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -1859,8 +1859,12 @@
        (
         (S (E $))
         (E
-         (E "*" B (lambda(args _terminals) (let ((ret (list (nth 0 args)))) 
(when (nth 2 args) (setq ret (append ret `(" x " ,(nth 2 args))))) ret)))
-         (E "+" B (lambda(args _terminals) (let ((ret (list (nth 0 args)))) 
(when (nth 2 args) (setq ret (append ret `(" . " ,(nth 2 args))))) ret)))
+         (E "*" B
+            (lambda(args _terminals)
+              (let ((ret (list (nth 0 args)))) (when (nth 2 args) (setq ret 
(append ret `(" x " ,(nth 2 args))))) ret)))
+         (E "+" B
+            (lambda(args _terminals)
+              (let ((ret (list (nth 0 args)))) (when (nth 2 args) (setq ret 
(append ret `(" . " ,(nth 2 args))))) ret)))
          (B)
          )
         (B
@@ -1881,7 +1885,7 @@
            (let ((start index)
                  (end (+ index 1)))
              (let ((token (buffer-substring-no-properties start end)))
-               (list `(,token ,start . ,end)) nil end nil))))))
+               (list `(,token ,start . ,end) nil end nil)))))))
 
     (setq
      parser-generator-lex-analyzer--get-function
@@ -1918,7 +1922,15 @@
       ("a" "b")
       (
        (Sp S)
-       (S (S "a" S "b" (lambda(args _terminals) (let ((list "")) (dolist (item 
args) (when item (setq list (format "%s%s" item list)))) list))))
+       (S
+        (S "a" S "b"
+           (lambda(args _terminals)
+             (let ((list ""))
+               (dolist (item args)
+                 (when item
+                   (setq list (format "%s%s" item list)))
+                 )
+               list))))
        (S e)
        )
       Sp))
@@ -1935,7 +1947,7 @@
            (let ((start index)
                  (end (+ index 1)))
              (let ((token (buffer-substring-no-properties start end)))
-               (list `(,token ,start . ,end)) nil end nil))))))
+               (list `(,token ,start . ,end) nil end nil)))))))
 
     (setq
      parser-generator-lex-analyzer--get-function