version 1.63, 1998/12/22 21:17:14
|
version 1.64, 1998/12/25 22:50:48
|
Line 1164 VARIABLE ;Resolve 1 cells allot
|
Line 1164 VARIABLE ;Resolve 1 cells allot
|
.sourcepos ." needs doer: " >in @ bl word count type >in ! cr |
.sourcepos ." needs doer: " >in @ bl word count type >in ! cr |
THEN |
THEN |
ghost tuck swap resolve <do:> swap >magic ! ; |
ghost tuck swap resolve <do:> swap >magic ! ; |
|
|
|
Variable prim# |
|
: first-primitive ( n -- ) prim# ! ; |
|
: Primitive ( -- ) \ name |
|
prim# @ T Alias H -1 prim# +! ; |
>CROSS |
>CROSS |
|
|
\ Conditionals and Comments 11may93jaw |
\ Conditionals and Comments 11may93jaw |