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 --- core.lisp | 4 ++-- main.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core.lisp b/core.lisp index 968a7d9..21e18fc 100644 --- a/core.lisp +++ b/core.lisp @@ -58,8 +58,8 @@ (failure-priority result)))) (when (or (> priority-cmp 0) (and (= priority-cmp 0) - (>= (distance (failure-place result) - (failure-place r)) + (>= (distance (result-place result) + (result-place r)) 0))) (setf result r))))) (t (error (format nil "Invalid return value: ~a." r)))))) 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