Fix append-on-failureHEADmain

1 files changed, 1 insertions, 2 deletions

diff --git a/main.lisp b/main.lisp
index 6d6ef8e..8938f14 100644
--- a/main.lisp
+++ b/main.lisp
@@ -9,8 +9,7 @@
 
 (defun append-on-failure (p message)
   (lambda (start input)
-    (declare (ignore start))
-    (let ((result (funcall p input input)))
+    (let ((result (funcall p start input)))
       (if (failure-p result)
         (make-failure :place (failure-place result)
                       :message (concatenate 'string message (failure-message result))