Permalink
Browse files

Allow discarding results in gather-if-not*.

  • Loading branch information...
1 parent 53855de commit e5375cf4979cc0680ecffe99867b881bd50a7271 @Ramarren committed Sep 1, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 greedy.lisp
View
@@ -201,7 +201,7 @@
(multiple-value-bind (result new-input) (gather-if-not*-using-context inp predicate accept-end accept-empty)
(when new-input
(make-instance 'parser-possibility
- :tree (coerce result result-type)
+ :tree (when result-type (coerce result result-type))
:suffix new-input)))))
(defun gather-before-token* (token &key (result-type 'list) (test #'eql) (accept-end nil) (accept-empty nil))

0 comments on commit e5375cf

Please sign in to comment.