do type conversion before equality checking for typed hashes

[StefanKarpinski]

julia> h = HashTable{Int64}()
HashTable()

julia> h[1.5] = "1.5"
{2=>"1.5",}

julia> h[2] = "2"
{2=>"2",2=>"1.5",}

Oops.

[StefanKarpinski]

@JeffBezanson, I tried this but get a segfault:

diff --git a/j/table.j b/j/table.j
index b3f42c2..db4eac6 100644
--- a/j/table.j
+++ b/j/table.j
@@ -173,7 +173,7 @@ function del_all{K,V}(h::HashTable{K,V})
     h
 end

-function assign{K,V}(h::HashTable{K,V}, v, key)
+function assign{K,V}(h::HashTable{K,V}, v::V, key::K)
     sz = length(h.keys)

     if numel(h.deleted) >= ((3*sz)>>2)
@@ -215,9 +215,10 @@ function assign{K,V}(h::HashTable{K,V}, v, key)

     assign(h, v, key)
 end
+assign{K,V}(h::HashTable{K,V}, v, k) = assign(h, convert(V,v), convert(K,k))

 # get the index where a key is stored, or -1 if not present
-function ht_keyindex(h::HashTable, key)
+function ht_keyindex{K,V}(h::HashTable{K,V}, key::K)
     sz = length(h.keys)
     iter = 0
     maxprobe = sz>>3
@@ -241,6 +242,7 @@ function ht_keyindex(h::HashTable, key)

     return -1
 end
+ht_keyindex{K,V}(h::HashTable{K,V}, key) = ht_keyindex(h, convert(K,key))

 function get(h::HashTable, key, deflt)
     index = ht_keyindex(h, key)