gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.30, 2000/08/17 12:46:57	version 1.31, 2000/09/06 20:30:06
Line 216 User scr ( -- a-addr ) \ block-ext s-c-r	Line 216 User scr ( -- a-addr ) \ block-ext s-c-r
\G Save the current input source specification. Store @i{n} in	\G Save the current input source specification. Store @i{n} in
\G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse	\G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse
\G area is exhausted, restore the input source specification.	\G area is exhausted, restore the input source specification.
	loadfilename# @ >r
	2 loadfilename# ! \ "\a block/"
push-file	push-file
dup loadline ! blk ! >in off ['] interpret catch	dup loadline ! blk ! >in off ['] interpret catch
pop-file throw ;	pop-file
	r> loadfilename# !
	throw ;

: thru ( ix n1 n2 -- jx ) \ block-ext	: thru ( ix n1 n2 -- jx ) \ block-ext
\G @code{load} the blocks @i{n1} through @i{n2} in sequence.	\G @code{load} the blocks @i{n1} through @i{n2} in sequence.