|
1234567891011121314 |
- : 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 )
- ;
-
|