[BACK]Return to blocks.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/blocks.fs between versions 1.8 and 1.9

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
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>