Make bind marginally faster

2014-08-17 20:35:25 +01:00 · 2014-08-17 20:35:25 +01:00 · 20d4f6e180
commit 20d4f6e180
parent 80b7547ea8
1 changed files with 2 additions and 1 deletions
--- a/parser.el
+++ b/parser.el
@ -63,7 +63,8 @@
    (lambda (s)
      (let ((new-result (parser-run m s)))
        (if (null new-result) nil
-          (destructuring-bind (new-value . new-state) new-result
+          (let ((new-value (car new-result))
+                (new-state (cdr new-result)))
            (parser-run (funcall f new-value) new-state)))))))

 (defmacro parser-do (expr &rest more)