[gforth] / gforth / blocks.fs  

gforth: gforth/blocks.fs

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

version 1.8, Tue May 7 16:15:21 1996 UTC version 1.9, Tue Jul 16 20:57:06 1996 UTC
Line 118 
Line 118 
     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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help