Return to blocks.fs CVS log | Up to [gforth] / gforth |
version 1.13, 1997/03/27 13:31:01 | version 1.14, 1997/05/21 20:39:18 |
---|---|
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 |