From bb5e6d7c39211349d460db0b61b2caf3d099d5b6 Mon Sep 17 00:00:00 2001 From: letouzey Date: Wed, 23 Oct 2013 22:17:33 +0000 Subject: cList: a few alternative to hashtbl-based uniquize, distinct, subset git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16924 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/omega/g_omega.ml4 | 2 +- plugins/romega/g_romega.ml4 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins') diff --git a/plugins/omega/g_omega.ml4 b/plugins/omega/g_omega.ml4 index d94a7136aa..082eac422a 100644 --- a/plugins/omega/g_omega.ml4 +++ b/plugins/omega/g_omega.ml4 @@ -26,7 +26,7 @@ let omega_tactic l = | "N" -> Tacinterp.interp <:tactic> | "Z" -> Tacinterp.interp <:tactic> | s -> Errors.error ("No Omega knowledge base for type "^s)) - (Util.List.uniquize (List.sort compare l)) + (Util.List.sort_uniquize String.compare l) in tclTHEN (tclREPEAT (tclPROGRESS (tclTHENLIST tacs))) diff --git a/plugins/romega/g_romega.ml4 b/plugins/romega/g_romega.ml4 index a68196e8cd..055546c8b1 100644 --- a/plugins/romega/g_romega.ml4 +++ b/plugins/romega/g_romega.ml4 @@ -19,7 +19,7 @@ let romega_tactic l = | "N" -> Tacinterp.interp <:tactic> | "Z" -> Tacinterp.interp <:tactic> | s -> Errors.error ("No ROmega knowledge base for type "^s)) - (Util.List.uniquize (List.sort compare l)) + (Util.List.sort_uniquize String.compare l) in tclTHEN (tclREPEAT (tclPROGRESS (tclTHENLIST tacs))) -- cgit v1.2.3