version 1.5, 1997/10/24 17:13:31
|
version 1.6, 1997/10/27 18:25:23
|
Line 99 name b 2dup name abc search throw d<> th
|
Line 99 name b 2dup name abc search throw d<> th
|
r> abort" ONLY sets current" ; |
r> abort" ONLY sets current" ; |
test-only |
test-only |
|
|
|
\ create-interpret/compile |
|
|
|
: constant ( n "name" -- ) |
|
create-interpret/compile |
|
, |
|
interpretation> |
|
@ |
|
<interpretation |
|
compilation> |
|
@ postpone literal |
|
<compilation ; |
|
|
|
5 constant five |
|
five 5 <> throw |
|
: five' five ; |
|
five' 5 <> throw |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |