Use result-place instead of failure-place

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))))