collapseos/blk/439

: BEGIN H@ ; IMMEDIATE
: AGAIN COMPILE (br) H@ - , ; IMMEDIATE
: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE
: [ INTERPRET ; IMMEDIATE
: ] R> DROP ;
: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE
: LITA 36 , , ;
: COMPILE ' LITA ['] , , ; IMMEDIATE
: [COMPILE] ' , ; IMMEDIATE
Cross-compiles in a single stage! Finally got rid of the XPACKed core and managed to cross-compile all core words, which greatly simplifies the bootstrapping process. 2020-05-15 00:17:38 +10:00			`: BEGIN H@ ; IMMEDIATE`
			`: AGAIN COMPILE (br) H@ - , ; IMMEDIATE`
			`: UNTIL COMPILE (?br) H@ - , ; IMMEDIATE`
			`: [ INTERPRET ; IMMEDIATE`
			`: ] R> DROP ;`
			`: LIT< WORD 34 , SCPY 0 C, ; IMMEDIATE`
			`: LITA 36 , , ;`
			`: COMPILE ' LITA ['] , , ; IMMEDIATE`
			`: [COMPILE] ' , ; IMMEDIATE`