diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-02 20:40:16 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 01:35:09 +0100 |
| commit | 28a2641df29cd7530c3ebe329dc118ba3f444b10 (patch) | |
| tree | 96e334e8aa6b9227892818a707d7ac09fc99630d /kernel/nativevalues.ml | |
| parent | 0d8a11017e45ff9b0b18af1d6cd69c66184b55ae (diff) | |
Fixing generic hashes and replacing them with proper ones.
Diffstat (limited to 'kernel/nativevalues.ml')
| -rw-r--r-- | kernel/nativevalues.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index c3e2b3ab7..98094f795 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -39,7 +39,7 @@ let eq_annot_sw asw1 asw2 = open Hashset.Combine let hash_annot_sw asw = - combine (Hashtbl.hash asw.asw_ind) (Hashtbl.hash asw.asw_prefix) + combine (ind_hash asw.asw_ind) (String.hash asw.asw_prefix) type sort_annot = string * int |