diff options
author | 2005-03-01 10:57:34 +0000 | |
---|---|---|
committer | 2005-03-01 10:57:34 +0000 | |
commit | 42537fb14ea0f3aa8ee761dc66bf5c987de8068d (patch) | |
tree | b72f19a0e5a10d036ff6f6e37bc80a994e634e51 /toplevel/vernacentries.ml | |
parent | 762c75bf444fbf48a2ef3a119bb343f54e2dc837 (diff) |
Code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6787 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index c5839ca7d..b032395e1 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -329,19 +329,6 @@ let vernac_import export refl = List.iter import refl; Lib.add_frozen_state () -(* else - let import (loc,qid) = - try - let mp = Nametab.locate_module qid in - Declaremods.import_module mp - with Not_found -> - user_err_loc - (loc,"vernac_import", - str ((string_of_qualid qid)^" is not a module")) - in - List.iter import qidl; -*) - let vernac_declare_module export id binders_ast mty_ast_o = (* We check the state of the system (in section, in module type) and what module information is supplied *) @@ -463,7 +450,6 @@ let vernac_record struc binders sort nameopt cfs = (* Sections *) let vernac_begin_section = Lib.open_section - let vernac_end_section = Lib.close_section let vernac_end_segment id = |