mirror of https://github.com/hsoft/collapseos.git
16 lines
438 B
Plaintext
16 lines
438 B
Plaintext
: DOES>
|
|
( Overwrite cellWord in CURRENT )
|
|
3 ( does ) 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 )
|
|
;
|
|
: CONSTANT CREATE , DOES> @ ;
|
|
|
|
|