version 1.59, 2000/09/10 19:50:33
|
version 1.60, 2000/09/11 20:56:39
|
Line 598 has? file 0= [IF]
|
Line 598 has? file 0= [IF]
|
\G and input buffer. Interpret. When the parse area is empty, |
\G and input buffer. Interpret. When the parse area is empty, |
\G restore the input source specification. |
\G restore the input source specification. |
loadfilename# @ >r |
loadfilename# @ >r |
1 loadfilename# ! \ "\evaluated string/" |
1 loadfilename# ! \ "*evaluated string*" |
push-file #tib ! >tib ! |
push-file #tib ! >tib ! |
>in off |
>in off |
[ has? file [IF] ] |
[ has? file [IF] ] |