From 7e2f822e0ec6d55c09784fc0b3d7b2cf5797c890 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sat, 27 Jun 2026 16:32:43 -0300 Subject: Use result-place instead of failure-place --- main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index b817601..b557327 100644 --- a/main.lisp +++ b/main.lisp @@ -9,7 +9,7 @@ (lambda (input) (let ((result (funcall p input))) (if (failure-p result) - (make-failure :place (failure-place result) + (make-failure :place (result-place result) :message (concatenate 'string message (failure-message result)) :priority (failure-priority result)) result)))) -- cgit v1.2.3