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 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'core.lisp') 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)))))) -- cgit v1.2.3