From 3df2ac55e233574a08b938f29f846069f3776e42 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 23 Mar 2026 07:49:34 -0300 Subject: A couple fixes and expose new --- core.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'core.lisp') diff --git a/core.lisp b/core.lisp index b7b204a..968a7d9 100644 --- a/core.lisp +++ b/core.lisp @@ -84,6 +84,7 @@ :message "No matches.")) ((and all (cursor-has-data? (result-place (first result)))) (make-failure :place (result-place (first result)) - :message "Input not exausted.")) + :message "Input not exausted." + :priority 1)) (t (make-parsing :place (result-place (first result)) :tree (reverse (mapcar (lambda (x) (parsing-tree x)) result)))))))) -- cgit v1.2.3