izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

xcomp: make (xfind) use _find instead of (find)

This commit is contained in:
Virgil Dupras 2020-04-09 11:24:43 -04:00
parent 1b6286dcfe
commit f1171c656c
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
forth/xcomp.fs
View File

@ -43,14 +43,11 @@ VARIABLE XOFF
( w -- a f xa xf )
: (xfind)
DUP ( w w )
(find) ( w a f )
CURRENT @ SWAP ( w cur w )
_find ( w a f )
ROT ( a f w )
CURRENT @ ( a f w cur )
XCURRENT @ CURRENT !
SWAP ( a f cur w )
(find) ( a f cur xa xf )
ROT ( a f xa xf cur )
CURRENT ! ( a f xa xf )
XCURRENT @ SWAP ( a f xcur w )
_find ( a f xa xf )
;
: XCODE