From d08d5b232d74f3a75a833b231c4ef5e80870c993 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Tue, 17 Mar 2026 17:48:03 -0300 Subject: Unify cursor start and end --- test.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'test.lisp') 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"))) -- cgit v1.2.3