Return to blocks.fs CVS log | Up to [gforth] / gforth |
version 1.34, 2000/10/29 20:27:02 | version 1.35, 2002/09/14 08:34:03 |
---|---|
Line 108 Defer flush-blocks ( -- ) \ gforth | Line 108 Defer flush-blocks ( -- ) \ gforth |
if | if |
r@ buffer-block @ block-position | r@ buffer-block @ block-position |
r@ block-buffer chars/block r@ buffer-fid @ write-file throw | r@ block-buffer chars/block r@ buffer-fid @ write-file throw |
buffer-fid @ flush-file throw | |
r@ buffer-dirty off | r@ buffer-dirty off |
endif | endif |
rdrop ; | rdrop ; |