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 |