version 1.39, 2002/01/26 16:31:40
|
version 1.40, 2002/04/01 15:34:34
|
Line 676 Defer discode ( addr u -- ) \ gforth
|
Line 676 Defer discode ( addr u -- ) \ gforth
|
if \ normal or immediate word |
if \ normal or immediate word |
swap xt-see (.immediate) |
swap xt-see (.immediate) |
else |
else |
r@ ['] compile-only-error = |
r@ ['] ticking-compile-only-error = |
if \ compile-only word |
if \ compile-only word |
swap xt-see (.immediate) ." compile-only" |
swap xt-see (.immediate) ." compile-only" |
else \ interpret/compile word |
else \ interpret/compile word |