From f572b02909b49533b58e14ef803316ccf9783dee Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 26 Nov 2012 10:04:20 +0000
Subject: Monomorphization (toplevel)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16005 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/ind_tables.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toplevel/ind_tables.ml')

diff --git a/toplevel/ind_tables.ml b/toplevel/ind_tables.ml
index bfd64778f..44b87b0c6 100644
--- a/toplevel/ind_tables.ml
+++ b/toplevel/ind_tables.ml
@@ -89,7 +89,7 @@ let scheme_object_table =
 let declare_scheme_object s aux f =
   (try check_ident ("ind"^s) with _ ->
     error ("Illegal induction scheme suffix: "^s));
-  let key = if aux = "" then s else aux in
+  let key = if String.equal aux "" then s else aux in
   try
     let _ = Hashtbl.find scheme_object_table key in
 (*    let aux_msg = if aux="" then "" else " (with key "^aux^")" in*)
-- 
cgit v1.2.3