--- gforth/kernel/files.fs 1997/05/21 20:40:14 1.1 +++ gforth/kernel/files.fs 1997/08/31 19:32:30 1.2 @@ -67,6 +67,8 @@ \ additional words only needed if there is file support +Warnings off + : ( ( compilation 'ccc' -- ; run-time -- ) \ core,file paren loadfile @ 0= IF postpone ( EXIT THEN BEGIN @@ -84,3 +86,4 @@ THEN REPEAT ; immediate +Warnings on