version 1.13, 1997/03/27 13:31:01
|
version 1.15, 1997/05/29 19:42:12
|
Line 59 Defer flush-blocks
|
Line 59 Defer flush-blocks
|
|
|
: open-blocks ( addr u -- ) \ gforth |
: open-blocks ( addr u -- ) \ gforth |
\g use the file, whose name is given by @var{addr u}, as blocks file |
\g use the file, whose name is given by @var{addr u}, as blocks file |
2dup ['] open-path-file catch 0<> |
2dup ['] open-fpath-file catch 0<> |
if |
if |
2drop r/w bin create-file throw |
2drop r/w bin create-file throw |
else |
else |
Line 168 User scr 0 scr !
|
Line 168 User scr 0 scr !
|
pop-file ( throw ) ; |
pop-file ( throw ) ; |
|
|
: thru ( i*x n1 n2 -- j*x ) |
: thru ( i*x n1 n2 -- j*x ) |
1+ swap 0 ?DO I load LOOP ; |
1+ swap ?DO I load LOOP ; |
|
|
: +load ( i*x n -- j*x ) blk @ + load ; |
: +load ( i*x n -- j*x ) blk @ + load ; |
|
|
: +thru ( i*x n1 n2 -- j*x ) |
: +thru ( i*x n1 n2 -- j*x ) |
1+ swap 0 ?DO I +load LOOP ; |
1+ swap ?DO I +load LOOP ; |
|
|
: --> ( -- ) refill drop ; immediate |
: --> ( -- ) refill drop ; immediate |
|
|