gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.5, 1995/08/29 21:07:33	version 1.6, 1995/09/06 21:00:10
Line 39 block-cold	Line 39 block-cold
Defer flush-file	Defer flush-file

: use-file ( addr u -- )	: use-file ( addr u -- )
block-fid @ IF flush-file block-fid @ close-file throw THEN
2dup r/w bin open-file 0<>	2dup r/w bin open-file 0<>
if	if
drop r/w bin create-file throw	drop r/w bin create-file throw
else	else
nip nip	nip nip
then	then
	block-fid @ IF flush-file block-fid @ close-file throw THEN
block-fid ! ;	block-fid ! ;

\ the file is opened as binary file, since it either will contain text	\ the file is opened as binary file, since it either will contain text