1 files changed, 2 insertions, 4 deletions
diff --git a/extra.lisp b/extra.lisp
index b738da7..9451ce8 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -21,10 +21,8 @@
 
 (defun many (p)
   (comp ((x p)
-         (xs (if x
-               (optional (many p))
-               (fail "Parsing result is empty."))))
-        (cons x xs)))
+         (xs (optional (many p))))
+        (if x (cons x xs) xs)))
 
 (defun repeat (p min &optional (max 0))
   (if (> min 0)