[gforth] / gforth / blocks.fs  

gforth: gforth/blocks.fs

Diff for /gforth/blocks.fs between version 1.15 and 1.16

version 1.15, Thu May 29 19:42:12 1997 UTC version 1.16, Sun Jul 6 16:03:24 1997 UTC
Line 47 
Line 47 
 User block-fid  User block-fid
   
 : block-cold  : block-cold
     defers 'cold  block-fid off  last-block off      block-fid off  last-block off
     buffers buffer-struct drop * allocate throw dup block-buffers !      buffers buffer-struct drop * allocate throw dup block-buffers !
     buffers buffer-struct drop * erase ;      buffers buffer-struct drop * erase ;
   
 ' block-cold IS 'cold  ' block-cold INIT8 chained
   
 block-cold  block-cold
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help