gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.39, 2003/01/20 19:17:59	version 1.40, 2003/01/22 10:59:54
Line 242 Create block-input A, A, A, A, A,	Line 242 Create block-input A, A, A, A, A,
\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 2@ 2>r	s" * a block*" loadfilename>r
s" * a block*" loadfilename 2!
push-file	push-file
dup loadline ! blk ! >in off ['] interpret catch	dup loadline ! blk ! >in off ['] interpret catch
pop-file	pop-file
2r> loadfilename 2!	r>loadfilename
throw ;	throw ;
[THEN]	[THEN]