2020-04-21 20:30:14 -04:00
|
|
|
: X:
|
2020-06-17 21:41:01 -04:00
|
|
|
(xentry) 1 ( compiled ) C,
|
2020-04-21 20:30:14 -04:00
|
|
|
BEGIN WORD
|
|
|
|
XCURRENT @ SWAP ( xcur w ) _find ( a f )
|
|
|
|
IF ( a )
|
|
|
|
DUP IMMED? IF ABORT THEN
|
2020-05-12 21:08:18 -04:00
|
|
|
_xapply ,
|
2020-04-21 20:30:14 -04:00
|
|
|
ELSE ( w )
|
|
|
|
0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
|
|
|
|
IF DUP IMMED? NOT IF ABORT THEN EXECUTE
|
2020-09-19 19:44:15 -04:00
|
|
|
ELSE (parse) XLITN THEN
|
2020-04-21 20:30:14 -04:00
|
|
|
THEN
|
|
|
|
AGAIN
|
|
|
|
;
|