mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 14:28:06 +11:00
15 lines
422 B
Plaintext
15 lines
422 B
Plaintext
|
: DOES>
|
||
|
|
( Overwrite cellWord in CURRENT )
|
||
|
|
( 43 == doesWord )
|
||
|
|
43 CURRENT @ C!
|
||
|
|
( When we have a DOES>, we forcefully place HERE to 4
|
||
|
|
bytes after CURRENT. This allows a DOES word to use ","
|
||
|
|
and "C," without messing everything up. )
|
||
|
|
CURRENT @ 3 + HERE !
|
||
|
|
( HERE points to where we should write R> )
|
||
|
|
R> ,
|
||
|
|
( We're done. Because we've popped RS, we'll exit parent
|
||
|
|
definition )
|
||
|
|
;
|
||
|
|
|