[gforth] / gforth / hash.fs  

gforth: gforth/hash.fs

Diff for /gforth/hash.fs between version 1.5 and 1.6

version 1.5, Tue Nov 15 15:55:36 1994 UTC version 1.6, Thu Nov 24 16:55:15 1994 UTC
Line 93 
Line 93 
   
 : hash-cold  ( -- ) Defers 'cold  : hash-cold  ( -- ) Defers 'cold
   HashPointer off  HashTable off  HashIndex off    HashPointer off  HashTable off  HashIndex off
   addall ;    voclink
     BEGIN  @ dup @  WHILE
            dup cell - @ >r
            dup 'initvoc
            r> over cell - !
     REPEAT  drop ;
 ' hash-cold IS 'cold  ' hash-cold IS 'cold
   
 : .words  ( -- )  : .words  ( -- )

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help