2020-10-28 18:06:58 -04:00
|
|
|
: 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> @ ;
|
