izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 20:38:08 +11:00
Code Issues Releases Wiki Activity

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

Browse Source
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 ) ( w -- a f xa xf )
: (xfind) : (xfind)
DUP ( w w ) DUP ( w w )
(find) ( w a f ) CURRENT @ SWAP ( w cur w )
_find ( w a f )
ROT ( a f w ) ROT ( a f w )
CURRENT @ ( a f w cur ) XCURRENT @ SWAP ( a f xcur w )
XCURRENT @ CURRENT ! _find ( a f xa xf )
SWAP ( a f cur w )
(find) ( a f cur xa xf )
ROT ( a f xa xf cur )
CURRENT ! ( a f xa xf )
; ;
: XCODE : XCODE