1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-24 14:28:06 +11:00

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

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