--- gforth/hash.fs 1994/11/24 16:55:15 1.6 +++ gforth/hash.fs 1994/12/21 14:26:24 1.7 @@ -58,9 +58,9 @@ Variable HashIndex REPEAT I ! cell +LOOP HashIndex off ; -: rehash clearhash addall ; +: re-hash clearhash addall ; : (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,