collapseos/blk/270

: CODE XCODE ;
: ['] X['] ; IMMEDIATE
: COMPILE XCOMPILE ; IMMEDIATE
: [COMPILE] X[COMPILE] ; IMMEDIATE
: DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE
: IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE
: AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE
: LIT" XLIT" ; IMMEDIATE : LITN XLITN ;
: IMMEDIATE XIMM ;
: (entry) (xentry) ;
: CREATE XCREATE ;
: : [ ' X: , ] ;

CURRENT @ XCURRENT !
xcomp: add overrides into a loadable block Makes xcomp.fs units shorter. 2020-05-14 03:33:24 +10:00			`: CODE XCODE ;`
			`: ['] X['] ; IMMEDIATE`
			`: COMPILE XCOMPILE ; IMMEDIATE`
			`: [COMPILE] X[COMPILE] ; IMMEDIATE`
De-stabilize (br), (?br), (loop), (s) When writing the xcomp documentation, I realized that with careful threading and by accepting a bit of code duplication in the xcomp toolset, I could de-stabilize a couple of words. (n) and EXIT are a bit trickier, but I think it can be done. It would be nice to get rid of stable wordrefs... 2020-09-20 03:54:01 +10:00			`: DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE`
			`: IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE`
			`: AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE`
De-stabilize (n) 2020-09-20 09:44:15 +10:00			`: LIT" XLIT" ; IMMEDIATE : LITN XLITN ;`
xcomp: add overrides into a loadable block Makes xcomp.fs units shorter. 2020-05-14 03:33:24 +10:00			`: IMMEDIATE XIMM ;`
			`: (entry) (xentry) ;`
			`: CREATE XCREATE ;`
			`: : [ ' X: , ] ;`

			`CURRENT @ XCURRENT !`