diff options
| author | Hugo Herbelin | 2015-08-02 14:45:24 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-03-22 11:35:46 +0100 |
| commit | 2e557589920156fe84335e72c5e765347bcc7c9c (patch) | |
| tree | e6d29f6f405764c933255feeb1d0e8add843efa7 /lib/cSet.ml | |
| parent | 920f1548e9245ddfc8b923c5039a5e09dc0c87d4 (diff) | |
A patch renaming equal into eq in the module dealing with
hash-consing, so as to avoid having too many kinds of equalities with
same name.
Diffstat (limited to 'lib/cSet.ml')
| -rw-r--r-- | lib/cSet.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cSet.ml b/lib/cSet.ml index 3eeff29fe1..037cdc3568 100644 --- a/lib/cSet.ml +++ b/lib/cSet.ml @@ -57,7 +57,7 @@ struct open Hashset.Combine type t = set type u = M.t -> M.t - let equal s1 s2 = s1 == s2 || eqeq (spine s1 []) (spine s2 []) + let eq s1 s2 = s1 == s2 || eqeq (spine s1 []) (spine s2 []) let hash s = Set.fold (fun v accu -> combine (H.hash v) accu) s 0 let hashcons = umap end |