Allow discarding results in gather-if-not*.

Ramarren · Sep 1, 2010 · e5375cf · e5375cf
1 parent 53855de
commit e5375cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/greedy.lisp b/greedy.lisp
@@ -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))