gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.46, 2006/12/31 13:39:11	version 1.47, 2007/02/18 18:30:51
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>
recover ( c-addr u ior )	iferror ( 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
endtry	then endtry
block-fid @ IF	block-fid @ IF
flush-blocks block-fid @ close-file throw	flush-blocks block-fid @ close-file throw
THEN	THEN