Diff for /gforth/blocks.fs between versions 1.41 and 1.42

version 1.41, 2003/03/09 15:16:46 version 1.42, 2003/10/30 14:18:41
Line 112  Defer flush-blocks ( -- ) \ gforth Line 112  Defer flush-blocks ( -- ) \ gforth
   
 : save-buffer ( buffer -- ) \ gforth  : save-buffer ( buffer -- ) \ gforth
     >r      >r
     r@ buffer-dirty @ r@ buffer-block @ 0<> and      r@ buffer-dirty @
     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
Line 216  User scr ( -- a-addr ) \ block-ext s-c-r Line 216  User scr ( -- a-addr ) \ block-ext s-c-r
                               \ restore-input                                \ restore-input
 :noname  blk @ >in @ 2 ;      \ save-input  :noname  blk @ >in @ 2 ;      \ save-input
 :noname  2 ;                  \ source-id "*a block*"  :noname  2 ;                  \ source-id "*a block*"
 :noname  1 blk +! 1 loadline +! true ;      \ refill  :noname  1 blk +! 1 loadline +! >in off true ;      \ refill
 :noname  blk @ block chars/block ;  \ source  :noname  blk @ block chars/block ;  \ source
   
 Create block-input   A, A, A, A, A,  Create block-input   A, A, A, A, A,

Removed from v.1.41  
changed lines
  Added in v.1.42


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