From d08d5b232d74f3a75a833b231c4ef5e80870c993 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Tue, 17 Mar 2026 17:48:03 -0300 Subject: Unify cursor start and end --- main.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'main.lisp') 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)) -- cgit v1.2.3