gforth/blocks.fs - diff

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