gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.47, 2007/02/18 18:30:51	version 1.48, 2007/02/18 18:51:40
Line 79 Defer flush-blocks ( -- ) \ gforth	Line 79 Defer flush-blocks ( -- ) \ gforth
2dup open-fpath-file throw	2dup open-fpath-file throw
rot close-file throw 2dup file-status throw bin open-file throw	rot close-file throw 2dup file-status throw bin open-file throw
>r 2drop r>	>r 2drop r>
iferror ( c-addr u ior )	restore endtry
	dup if ( c-addr u ior )
>r 2dup file-status nip 0= r> and throw \ does it really not exist?	>r 2dup file-status nip 0= r> and throw \ does it really not exist?
r/w bin create-file throw	r/w bin create-file throw
then endtry	then
block-fid @ IF	block-fid @ IF
flush-blocks block-fid @ close-file throw	flush-blocks block-fid @ close-file throw
THEN	THEN