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, |
|
|