|
- : 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> @ ;
|