From d702c37b5b118dadee9a5e8e52647b3226948d68 Mon Sep 17 00:00:00 2001
From: sacerdot
Date: Thu, 26 May 2005 14:44:36 +0000
Subject: Patch to avoid Whelp bug removed.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7079 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/whelp.ml4 | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/toplevel/whelp.ml4 b/toplevel/whelp.ml4
index b27a74c2f9..bc735f8d14 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
-- 
cgit v1.2.3