Unify cursor start and endHEADmain

1 files changed, 3 insertions, 5 deletions

diff --git a/main.lisp b/main.lisp
index 683b70f..b817601 100644
--- a/main.lisp
+++ b/main.lisp
@@ -2,14 +2,12 @@
 
 (declaim (ftype (function (parser string) result) parse))
 (defun parse (parser data)
-  (funcall parser
-           (make-instance 'cursor :data data)
-           (make-instance 'cursor :data data)))
+  (funcall parser (make-cursor :data data)))
 
 (declaim (ftype (function (parser string) parser) append-on-failure))
 (defun append-on-failure (p message)
-  (lambda (start input)
-    (let ((result (funcall p start input)))
+  (lambda (input)
+    (let ((result (funcall p input)))
       (if (failure-p result)
         (make-failure :place (failure-place result)
                       :message (concatenate 'string message (failure-message result))