Return to blocks.fs CVS log | Up to [gforth] / gforth |
version 1.8, 1996/05/07 16:15:21 | version 1.9, 1996/07/16 20:57:06 |
---|---|
Line 118 Defer flush-file | Line 118 Defer flush-file |
dup 0= -35 and throw | dup 0= -35 and throw |
dup get-buffer >r | dup get-buffer >r |
dup r@ buffer-block @ <> | dup r@ buffer-block @ <> |
r@ buffer-fid @ block-fid @ <> and | r@ buffer-fid @ block-fid @ <> or |
if | if |
r@ save-buffer | r@ save-buffer |
dup block-position | dup block-position |