Return to files.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.22, 2003/03/09 15:17:05 | version 1.23, 2006/02/05 17:54:39 |
---|---|
Line 58 has? new-input 0= [IF] | Line 58 has? new-input 0= [IF] |
: pop-file ( throw-code -- throw-code ) | : pop-file ( throw-code -- throw-code ) |
dup IF | dup IF |
source >in @ sourceline# sourcefilename >error | input-error-data >error |
THEN | THEN |
r> | r> |
r> >in ! | r> >in ! |