2020-05-14 22:50:43 +10:00
|
|
|
: DOES>
|
|
|
|
( Overwrite cellWord in CURRENT )
|
2020-06-18 11:41:01 +10:00
|
|
|
3 ( does ) CURRENT @ C!
|
2020-05-14 22:50:43 +10:00
|
|
|
( 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 )
|
2020-05-13 22:50:07 +10:00
|
|
|
;
|
2020-05-14 22:50:43 +10:00
|
|
|
: CONSTANT CREATE , DOES> @ ;
|