|
- : LIT< COMPILE (s) WORD DUP C@ 1+ MOVE, ; IMMEDIATE
- : BEGIN H@ ; IMMEDIATE
- : AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
- : UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
- : [ INTERPRET ; IMMEDIATE
- : ] R> DROP ;
- : COMPILE ' LITN ['] , , ; IMMEDIATE
- : [COMPILE] ' , ; IMMEDIATE
-
-
-
-
-
-
|