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.49, 2007/02/18 18:59:40
Line 78 Defer flush-blocks ( -- ) \ gforth	Line 78 Defer flush-blocks ( -- ) \ gforth
try ( c-addr u )	try ( c-addr u )
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> 0
recover ( 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
endtry	then
block-fid @ IF	block-fid @ IF
flush-blocks block-fid @ close-file throw	flush-blocks block-fid @ close-file throw
THEN	THEN