[project @ 2004-03-19 10:45:42 by simonmar]

Bugfix for insert (from the missing-prime class of bugs)

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index 9fbe735..cbc3f5c 100644 (file)
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -220,7 +220,7 @@ insert (HashTable ref) key val = do
           then expandHashTable table1
           else return table1
   writeIORef ref table2
-  (segment_index,segment_offset) <- tableLocation table key
+  (segment_index,segment_offset) <- tableLocation table2 key
   segment <- myReadArray dir segment_index
   bucket <- myReadArray segment segment_offset
   myWriteArray segment segment_offset ((key,val):bucket)