Diff for /gforth/hash.fs between versions 1.6 and 1.7

version 1.6, 1994/11/24 16:55:15 version 1.7, 1994/12/21 14:26:24
Line 58  Variable HashIndex Line 58  Variable HashIndex
         REPEAT  I !          REPEAT  I !
     cell +LOOP  HashIndex off ;      cell +LOOP  HashIndex off ;
   
 : rehash  clearhash addall ;  : re-hash  clearhash addall ;
 : (rehash) ( addr -- )  : (rehash) ( addr -- )
   drop revealed @ IF  rehash revealed off  THEN ;    drop revealed @ IF  re-hash revealed off  THEN ;
   
 Create hashsearch  ' hash-find A, ' hash-reveal A, ' (rehash) A,  Create hashsearch  ' hash-find A, ' hash-reveal A, ' (rehash) A,
   

Removed from v.1.6  
changed lines
  Added in v.1.7


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