|
version 1.1, 1997/05/21 20:40:14
|
version 1.2, 1997/08/31 19:32:30
|
|
Line 67
|
Line 67
|
| |
|
| \ additional words only needed if there is file support |
\ additional words only needed if there is file support |
| |
|
| |
Warnings off |
| |
|
| : ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren |
: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren |
| loadfile @ 0= IF postpone ( EXIT THEN |
loadfile @ 0= IF postpone ( EXIT THEN |
| BEGIN |
BEGIN |
|
Line 84
|
Line 86
|
| THEN |
THEN |
| REPEAT ; immediate |
REPEAT ; immediate |
| |
|
| |
Warnings on |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to files.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel