From abd9118fb3199c315a4d8bb4d944c1cbf220df39 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Fri, 8 Nov 2024 19:14:00 -0800 Subject: [PATCH] Tweak --- examples/into.fs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/examples/into.fs b/examples/into.fs index 1880152..11a6f28 100755 --- a/examples/into.fs +++ b/examples/into.fs @@ -27,16 +27,16 @@ also recognizers also internals a m + n m - -1 ; -: rec-to ( a n -- ) +: rec-> ( a n -- ) s" ->" prefix? 0= if rectype-none exit then find dup 0= if drop rectype-none exit then >body ['] ! rectype-to -; ' rec-to +recognizer +; ' rec-> +recognizer -: rec-+to ( a n -- ) +: rec+-> ( a n -- ) s" +->" prefix? 0= if rectype-none exit then find dup 0= if drop rectype-none exit then >body ['] +! rectype-to -; ' rec-+to +recognizer +; ' rec+-> +recognizer previous previous