version 1.92, 2003/01/22 10:59:54
|
version 1.93, 2003/01/22 18:52:48
|
Line 286 $1fffffff constant lcount-mask
|
Line 286 $1fffffff constant lcount-mask
|
: ticking-compile-only-error ( ... -- ) |
: ticking-compile-only-error ( ... -- ) |
-&2048 throw ; |
-&2048 throw ; |
|
|
|
: compile-only-error ( ... -- ) |
|
-&14 throw ; |
|
|
: (cfa>int) ( cfa -- xt ) |
: (cfa>int) ( cfa -- xt ) |
[ has? compiler [IF] ] |
[ has? compiler [IF] ] |
dup interpret/compile? |
dup interpret/compile? |
Line 298 $1fffffff constant lcount-mask
|
Line 301 $1fffffff constant lcount-mask
|
\ get interpretation semantics of name |
\ get interpretation semantics of name |
restrict-mask and |
restrict-mask and |
if |
if |
drop ['] ticking-compile-only-error |
drop ['] compile-only-error |
else |
else |
(cfa>int) |
(cfa>int) |
then ; |
then ; |