alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak

Browse Source
This commit is contained in:
Brad Nelson
2024-11-08 19:14:00 -08:00
parent af641b0578
commit abd9118fb3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/into.fs
View File

@ -27,16 +27,16 @@ also recognizers also internals
a m + n m - -1 a m + n m - -1
; ;
: rec-to ( a n -- ) : rec-> ( a n -- )
s" ->" prefix? 0= if rectype-none exit then s" ->" prefix? 0= if rectype-none exit then
find dup 0= if drop rectype-none exit then find dup 0= if drop rectype-none exit then
>body ['] ! rectype-to >body ['] ! rectype-to
; ' rec-to +recognizer ; ' rec-> +recognizer
: rec-+to ( a n -- ) : rec+-> ( a n -- )
s" +->" prefix? 0= if rectype-none exit then s" +->" prefix? 0= if rectype-none exit then
find dup 0= if drop rectype-none exit then find dup 0= if drop rectype-none exit then
>body ['] +! rectype-to >body ['] +! rectype-to
; ' rec-+to +recognizer ; ' rec+-> +recognizer
previous previous previous previous