diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-26 14:44:36 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-26 14:44:36 +0000 |
| commit | d702c37b5b118dadee9a5e8e52647b3226948d68 (patch) | |
| tree | b5f2e84167977914e1332212a2ed8bb882dbbcc7 | |
| parent | f0ac97d46749f7fc3c7116a9b3b9911cd957c3d6 (diff) | |
Patch to avoid Whelp bug removed.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7079 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/whelp.ml4 | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/toplevel/whelp.ml4 b/toplevel/whelp.ml4 index b27a74c2f..bc735f8d1 100644 --- a/toplevel/whelp.ml4 +++ b/toplevel/whelp.ml4 @@ -156,10 +156,7 @@ let whelp_constr_expr req c = let whelp_locate s = send_whelp "locate" s -let whelp_elim ind = - send_whelp "elim" -(* (uri_of_global (IndRef ind))*) - (string_of_qualid (shortest_qualid_of_global Idset.empty (IndRef ind))) +let whelp_elim ind = send_whelp "elim" (uri_of_global (IndRef ind)) let locate_inductive r = let (loc,qid) = qualid_of_reference r in |