summaryrefslogtreecommitdiff
path: root/test.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'test.lisp')
-rw-r--r--test.lisp10
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")))