|
- : X:
- (xentry) 1 ( compiled ) C,
- BEGIN WORD
- XCURRENT @ SWAP ( xcur w ) _find ( a f )
- IF ( a )
- DUP IMMED? IF ABORT THEN
- _xapply ,
- ELSE ( w )
- 0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
- IF DUP IMMED? NOT IF ABORT THEN EXECUTE
- ELSE (parse) LITN THEN
- THEN
- AGAIN
- ;
|