diff options
| author | aspiwack | 2007-12-07 17:02:48 +0000 |
|---|---|---|
| committer | aspiwack | 2007-12-07 17:02:48 +0000 |
| commit | d619f795a7ffcd46ae6d3eea022f9520cc72ad3d (patch) | |
| tree | 0cba5e9a76730a4abc6284a084524d3fb608e1b5 /lib/util.ml | |
| parent | 8b327a118a02e8c29f1c49774c6b2d78e2179b79 (diff) | |
Util.option_compare devient Option.Misc.Compare et change un peu de type
( ('a -> 'b -> bool) -> 'a option -> 'b option -> bool devient la même
chose mais avec 'a='b ) et de contenu pour avoir une sémantique plus
claire.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10353 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lib/util.ml b/lib/util.ml index 99a203d52f..586365dd83 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -788,11 +788,6 @@ let interval n m = in interval_n ([],m) -let option_compare f a b = match (a,b) with - | None, None -> true - | Some a', Some b' -> f a' b' - | _ -> failwith "option_compare" - let map_succeed f = let rec map_f = function |