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
352B

  1. ( LITN has to be defined after the last immediate usage of
  2. it to avoid bootstrapping issues )
  3. : LITN 32 , , ( 32 == NUMBER ) ;
  4. : IMMED? 1- C@ 0x80 AND ;
  5. ( ';' can't have its name right away because, when created, it
  6. is not an IMMEDIATE yet and will not be treated properly by
  7. xcomp. )
  8. : _
  9. ['] EXIT ,
  10. R> DROP ( exit : )
  11. ; IMMEDIATE