version 1.139, 2003/05/11 17:17:13
|
version 1.140, 2003/08/04 20:32:34
|
Line 2296 Defer setup-prim-semantics
|
Line 2296 Defer setup-prim-semantics
|
Variable prim# |
Variable prim# |
: first-primitive ( n -- ) prim# ! ; |
: first-primitive ( n -- ) prim# ! ; |
: group 0 word drop prim# @ 1- -$200 and prim# ! ; |
: group 0 word drop prim# @ 1- -$200 and prim# ! ; |
|
: groupadd ( n -- ) drop ; |
: Primitive ( -- ) \ name |
: Primitive ( -- ) \ name |
>in @ skip? IF drop EXIT THEN >in ! |
>in @ skip? IF drop EXIT THEN >in ! |
s" prims" T $has? H 0= |
s" prims" T $has? H 0= |