diff options
| author | puech | 2011-07-29 14:29:12 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:29:12 +0000 |
| commit | 41f651e2b64fbba2bf50777564f24168ad3cf6b5 (patch) | |
| tree | b034056e9956123fe244c64252395e67eacec88d | |
| parent | 4abf4618a5696c2fb830ed734d804e1e0dcafebb (diff) | |
Ring: replaced some generic Pervasives.compare on constr by constr_ord
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14362 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | plugins/ring/ring.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ring/ring.ml b/plugins/ring/ring.ml index 89309e3232..6dd2a0c6e8 100644 --- a/plugins/ring/ring.ml +++ b/plugins/ring/ring.ml @@ -166,7 +166,7 @@ type theory = (* Theories are stored in a table which is synchronised with the Reset mechanism. *) -module Cmap = Map.Make(struct type t = constr let compare = compare end) +module Cmap = Map.Make(struct type t = constr let compare = constr_ord end) let theories_map = ref Cmap.empty |