2020-05-14 03:33:24 +10:00
|
|
|
: CODE XCODE ;
|
2020-11-11 12:30:37 +11:00
|
|
|
: '? X'? ;
|
2020-05-14 03:33:24 +10:00
|
|
|
: ['] X['] ; IMMEDIATE
|
|
|
|
: COMPILE XCOMPILE ; IMMEDIATE
|
|
|
|
: [COMPILE] X[COMPILE] ; IMMEDIATE
|
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
|
2020-09-20 09:44:15 +10:00
|
|
|
: LIT" XLIT" ; IMMEDIATE : LITN XLITN ;
|
2020-05-14 03:33:24 +10:00
|
|
|
: IMMEDIATE XIMM ;
|
2020-10-29 06:02:06 +11:00
|
|
|
: (entry) (xentry) ; : CREATE XCREATE ; : :** X:** ;
|
2020-05-14 03:33:24 +10:00
|
|
|
: : [ ' X: , ] ;
|
|
|
|
|
|
|
|
CURRENT @ XCURRENT !
|