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 ( i*x n1 n2 -- j*x ) \ block-ext |
: thru ( i*x n1 n2 -- j*x ) \ 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. |