Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.

15 Zeilen
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. ;