From 13525655b8a8577b0f1f467515ec259e85028b10 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 24 Nov 2025 07:14:53 -0300 Subject: Fix append-on-failure --- main.lisp | 3 +-- 1 file changed, 1 insertion(+), 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)) -- cgit v1.2.3