version 1.1, 1996/09/19 22:17:34
|
version 1.2, 1996/09/23 08:52:49
|
Line 280 Defer source ( -- addr count ) \ core
|
Line 280 Defer source ( -- addr count ) \ core
|
: POSTPONE ( -- ) \ core |
: POSTPONE ( -- ) \ core |
COMP' swap POSTPONE aliteral compile, ; immediate restrict |
COMP' swap POSTPONE aliteral compile, ; immediate restrict |
|
|
: interpret/compile: ( interp-xt comp-xt "name" -- ) |
: interpret/compile: ( interp-xt comp-xt "name" -- ) \ gforth |
Create immediate swap A, A, |
Create immediate swap A, A, |
DOES> |
DOES> |
abort" executed primary cfa of an interpret/compile: word" ; |
abort" executed primary cfa of an interpret/compile: word" ; |
Line 1011 Avariable leave-sp leave-stack 3 cells
|
Line 1011 Avariable leave-sp leave-stack 3 cells
|
\ aborts if the last defined word was headerless |
\ aborts if the last defined word was headerless |
last @ dup 0= abort" last word was headerless" cell+ ; |
last @ dup 0= abort" last word was headerless" cell+ ; |
|
|
: immediate immediate-mask lastflags cset ; |
: immediate ( -- ) \ core |
: restrict restrict-mask lastflags cset ; |
immediate-mask lastflags cset ; |
|
: restrict ( -- ) \ gforth |
|
restrict-mask lastflags cset ; |
|
' restrict alias compile-only ( -- ) \ gforth |
|
|
\ Header 23feb93py |
\ Header 23feb93py |
|
|
Line 1121 Create ??? 0 , 3 c, char ? c, char ? c,
|
Line 1124 Create ??? 0 , 3 c, char ? c, char ? c,
|
|
|
: (Constant) Header reveal docon: cfa, ; |
: (Constant) Header reveal docon: cfa, ; |
: Constant ( w "name" -- ) \ core |
: Constant ( w "name" -- ) \ core |
|
\ \G Defines constant @var{name} |
|
\ \G |
|
\ \G @var{name} execution: @var{-- w} |
(Constant) , ; |
(Constant) , ; |
: AConstant ( addr "name" -- ) \ gforth |
: AConstant ( addr "name" -- ) \ gforth |
(Constant) A, ; |
(Constant) A, ; |