Unify cursor start and endHEADmain

1 files changed, 4 insertions, 6 deletions

diff --git a/test.lisp b/test.lisp
index b0ffdc2..b1e3f3e 100644
--- a/test.lisp
+++ b/test.lisp
@@ -37,13 +37,11 @@
                    ((match) (if (parsing-tree prefix)
                               (fail "Reached prefix")
                               (progn
-                                (format t "prefix start: ~a, end: ~a~&"
-                                        (parsing-start prefix)
-                                        (parsing-end prefix))
+                                (format t "prefix place ~a~&"
+                                        (result-place prefix))
                                 (unit)))))
-              (format t "match start: ~a, end: ~a~&"
-                      (parsing-start match)
-                      (parsing-end match))
+              (format t "match place: ~a~&"
+                      (result-place match))
               match)
             "ezy")
            ((many (comp ((prefix (optional (literal "zy")))