ifix case where we lose hash table output.

2012-03-22 12:07:38 +00:00 · 2012-03-22 12:07:38 +00:00 · 7b84608e5e
commit 7b84608e5e
parent c85e76f20f
1 changed files with 2 additions and 1 deletions
--- a/library/bhash.yap
+++ b/library/bhash.yap
@ -105,7 +105,8 @@ find_or_insert(Keys, Index, Size, N, CmpF, Vals, Key, NewVal, Hash, NewHash) :-
 	->
 	     % do rb_update
 	    array_element(Vals, Index, Mutable),
-	    update_mutable(NewVal, Mutable)
+	    update_mutable(NewVal, Mutable),
+	    Hash = NewHash
        ;
 	    I1 is (Index+1) mod Size,
 	    find_or_insert(Keys, I1, Size, N, CmpF, Vals, Key, NewVal, Hash, NewHash)