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

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

[elpa] master cdb8c0d 47/60: Remove unused symbols


From: Junpeng Qiu
Subject: [elpa] master cdb8c0d 47/60: Remove unused symbols
Date: Tue, 25 Oct 2016 17:45:16 +0000 (UTC)

branch: master
commit cdb8c0dc1d97acbc408dc65e4a2615d7aec81f8f
Author: Junpeng Qiu <address@hidden>
Commit: Junpeng Qiu <address@hidden>

    Remove unused symbols
---
 parsec.el |    6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/parsec.el b/parsec.el
index 60a8451..5f60f20 100644
--- a/parsec.el
+++ b/parsec.el
@@ -666,8 +666,7 @@ If the current parser succeeds, return its results.  If the
 current parser fails without consuming any input, try the next
 parser if available.  This combinator fails if the current parser
 fails after consuming some input or there is no more parsers."
-  (let ((outer-sym (make-symbol "outer"))
-        (parser-sym (make-symbol "parser"))
+  (let ((parser-sym (make-symbol "parser"))
         (error-sym (make-symbol "err"))
         (error-str-list-sym (make-symbol "err-list")))
     `(let (,error-str-list-sym ,parser-sym ,error-sym)
@@ -776,8 +775,7 @@ point of your parsing program."
 
 (defmacro parsec-many (parser)
   "Apply the PARSER zero or more times and return a list of the results."
-  (let ((res-sym (make-symbol "results"))
-        (error-sym (make-symbol "err")))
+  (let ((res-sym (make-symbol "results")))
     `(let (,res-sym)
        (parsec-protect-atom parsec-many
          (parsec-start



reply via email to

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