Retire commenatires obsoletes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1649 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 0 insertions, 13 deletions

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index fbe75eb9d4..fbc9dc1522 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -1021,19 +1021,6 @@ let _ =
               mSG (print_safe_judgment env j))
        | _ -> bad_vernac_args "Check")
     
-(***
-let _ =
-  add "PrintExtractId"
-    (function 
-       | [VARG_IDENTIFIER id] -> (fun () -> mSG(print_extracted_name id))
-       | _ -> bad_vernac_args "PrintExtractId")
-
-let _ =
-  add "PrintExtract"
-    (function 
-       | [] -> (fun () -> mSG(print_extraction ()))
-       | _  -> bad_vernac_args "PrintExtract")
-    ***)
 
 let extract_qualid = function 
   | VARG_QUALID qid ->