diff options
Diffstat (limited to 'lib/conventions.ml')
| -rw-r--r-- | lib/conventions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/conventions.ml b/lib/conventions.ml index a031014..9e18762 100644 --- a/lib/conventions.ml +++ b/lib/conventions.ml @@ -49,7 +49,7 @@ module AbstractValue = struct else Atom (string_of_float f) | Opaque -> Atom "<opaque>" - let equals a b = + let equal a b = match (type_of a, type_of b) with | (Int, Int) -> (Obj.obj a : int) = (Obj.obj b : int) | (String, String) -> (Obj.obj a : string) = (Obj.obj b : string) |