izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/270

15 lines
388 B
Plaintext
Raw Normal View History

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 !