gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.91, 2003/01/20 19:17:59	version 1.92, 2003/01/22 10:59:54
Line 696 has? new-input 0= [IF]	Line 696 has? new-input 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.
[ has? file [IF] ]	[ has? file [IF] ]
loadfilename 2@ 2>r	s" evaluated string" loadfilename>r
s" evaluated string" loadfilename 2!
[ [THEN] ]	[ [THEN] ]
push-file #tib ! >tib !	push-file #tib ! >tib !
>in off	>in off
Line 707 has? new-input 0= [IF]	Line 706 has? new-input 0= [IF]
['] interpret catch	['] interpret catch
pop-file	pop-file
[ has? file [IF] ]	[ has? file [IF] ]
2r> loadfilename 2!	r>loadfilename
[ [THEN] ]	[ [THEN] ]
throw ;	throw ;
[THEN]	[THEN]