1 files changed, 2 insertions, 2 deletions
diff --git a/core.lisp b/core.lisp
index 3d3f4e8..be12f99 100644
--- a/core.lisp
+++ b/core.lisp
@@ -48,8 +48,8 @@
                                       (push r intermediate-parsers))
                                      ((parsing-p r)
                                       (when (or (not (parsing-p result))
-                                                (> (cursor (parsing-left r))
-                                                   (cursor (parsing-left result))))
+                                                (> (input-cursor (parsing-left r))
+                                                   (input-cursor (parsing-left result))))
                                         (setf result r)))
                                      ((failure-p r)
                                       (when (or (failure-p result)