Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

15 lines
422B

  1. : DOES>
  2. ( Overwrite cellWord in CURRENT )
  3. ( 43 == doesWord )
  4. 43 CURRENT @ C!
  5. ( When we have a DOES>, we forcefully place HERE to 4
  6. bytes after CURRENT. This allows a DOES word to use ","
  7. and "C," without messing everything up. )
  8. CURRENT @ 3 + HERE !
  9. ( HERE points to where we should write R> )
  10. R> ,
  11. ( We're done. Because we've popped RS, we'll exit parent
  12. definition )
  13. ;