1 files changed, 2 insertions, 1 deletions
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))))))))