|
version 1.16, 2000/10/29 20:27:03
|
version 1.17, 2001/09/06 08:11:52
|
|
Line 88 has? new-input 0= [IF]
|
Line 88 has? new-input 0= [IF]
|
| |
|
| \ additional words only needed if there is file support |
\ additional words only needed if there is file support |
| |
|
| Warnings off |
Redefinitions-start |
| |
|
| : ( ( 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 |
|
Line 107 Warnings off
|
Line 107 Warnings off
|
| THEN |
THEN |
| REPEAT ; immediate |
REPEAT ; immediate |
| |
|
| Warnings on |
Redefinitions-end |
![[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