diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-26 10:04:20 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-26 10:04:20 +0000 |
| commit | f572b02909b49533b58e14ef803316ccf9783dee (patch) | |
| tree | 26f5f0cd7395b105cbda87b2ad95efdf15ba3837 /toplevel/ind_tables.ml | |
| parent | 4b61463f5b95dad398a5e2ac444682793122af20 (diff) | |
Monomorphization (toplevel)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16005 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/ind_tables.ml')
| -rw-r--r-- | toplevel/ind_tables.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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*) |