Diff for /gforth/blocks.fs between versions 1.34 and 1.35

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 ;

Removed from v.1.34  
changed lines
  Added in v.1.35


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