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

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

[elpa] externals/parser-generator 5a2dbb3 297/434: Removed unnecessary d


From: ELPA Syncer
Subject: [elpa] externals/parser-generator 5a2dbb3 297/434: Removed unnecessary debug outputs
Date: Mon, 29 Nov 2021 16:00:02 -0500 (EST)

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

    Removed unnecessary debug outputs
---
 test/parser-generator-lr-export-test.el | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/test/parser-generator-lr-export-test.el 
b/test/parser-generator-lr-export-test.el
index 92bf701..21bdbec 100644
--- a/test/parser-generator-lr-export-test.el
+++ b/test/parser-generator-lr-export-test.el
@@ -53,7 +53,8 @@
 
     ;; Export parser
     (let ((export (parser-generator-lr-export-to-elisp "ba")))
-      (message "export:\n%s\n" export)
+      (parser-generator--debug
+       (message "export:\n%s\n" export))
       (with-temp-buffer
         (insert export)
         (eval-buffer)
@@ -100,14 +101,15 @@
                   (translation-symbol-table (nth 4 history))
                   (history-list iterated-history))
 
-              (message "\nIncremental %s" history-index)
-              (message "regular-parse: %s" regular-parse)
-              (message "input-tape-index: %s" input-tape-index)
-              (message "pushdown-list: %s" pushdown-list)
-              (message "output: %s" output)
-              (message "translation: %s" translation)
-              (message "translation-symbol-table: %s" translation-symbol-table)
-              (message "history-list: %s\n" history-list)
+              (parser-generator--debug
+               (message "\nIncremental %s" history-index)
+               (message "regular-parse: %s" regular-parse)
+               (message "input-tape-index: %s" input-tape-index)
+               (message "pushdown-list: %s" pushdown-list)
+               (message "output: %s" output)
+               (message "translation: %s" translation)
+               (message "translation-symbol-table: %s" 
translation-symbol-table)
+               (message "history-list: %s\n" history-list))
 
               (let ((incremental-parse
                      (ba--parse
@@ -168,7 +170,8 @@
   ;; Export parser
   (let ((export (parser-generator-lr-export-to-elisp "e--")))
 
-    (message "export:\n%s\n" export)
+    (parser-generator--debug
+     (message "export:\n%s\n" export))
     (with-temp-buffer
       (insert export)
       (eval-buffer)



reply via email to

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