2020-05-13 13:33:24 -04:00
|
|
|
: CODE XCODE ;
|
2020-11-10 20:30:37 -05:00
|
|
|
: '? X'? ;
|
2020-05-13 13:33:24 -04:00
|
|
|
: ['] X['] ; IMMEDIATE
|
|
|
|
: COMPILE XCOMPILE ; IMMEDIATE
|
|
|
|
: [COMPILE] X[COMPILE] ; IMMEDIATE
|
2020-09-19 13:54:01 -04:00
|
|
|
: DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE
|
|
|
|
: IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE
|
|
|
|
: AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE
|
2020-09-19 19:44:15 -04:00
|
|
|
: LIT" XLIT" ; IMMEDIATE : LITN XLITN ;
|
2020-05-13 13:33:24 -04:00
|
|
|
: IMMEDIATE XIMM ;
|
2020-10-28 15:02:06 -04:00
|
|
|
: (entry) (xentry) ; : CREATE XCREATE ; : :** X:** ;
|
2020-05-13 13:33:24 -04:00
|
|
|
: : [ ' X: , ] ;
|
|
|
|
|
|
|
|
CURRENT @ XCURRENT !
|