diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-06-27 16:32:43 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-06-27 16:32:43 -0300 |
| commit | 7e2f822e0ec6d55c09784fc0b3d7b2cf5797c890 (patch) | |
| tree | e8718480c4bf5219e1bbf9d3f2efd6b6a0956b14 /core.lisp | |
| parent | 8a97d64adef87a9f12824c5653bc5182b9a4f06d (diff) | |
| download | monparser-7e2f822e0ec6d55c09784fc0b3d7b2cf5797c890.tar.gz monparser-7e2f822e0ec6d55c09784fc0b3d7b2cf5797c890.zip | |
Use result-place instead of failure-place
Diffstat (limited to 'core.lisp')
| -rw-r--r-- | core.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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)))))) |