xeals/origami.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make bind marginally faster

Browse Source
This commit is contained in:
Greg Sexton 2014-08-17 20:35:25 +01:00
parent 80b7547ea8
commit 20d4f6e180
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
parser.el
View File

@ -63,7 +63,8 @@
(lambda (s) (lambda (s)
(let ((new-result (parser-run m s))) (let ((new-result (parser-run m s)))
(if (null new-result) nil (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))))))) (parser-run (funcall f new-value) new-state)))))))
(defmacro parser-do (expr &rest more) (defmacro parser-do (expr &rest more)