|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to other.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / test