diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 14:38:48 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 14:38:48 +0000 |
| commit | 8e2d8e85314e3519ca6159aba44e80e78c2a65b0 (patch) | |
| tree | bdef7a37f1d27b0c30f8ab32a0bf643c90438408 /toplevel | |
| parent | e527cb25226d2c9037da66ec8a1832ce22c23634 (diff) | |
Scratch par defaut si rien n'est specifier dans Add LoadPath
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1357 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 153e91667..1ac4ffcb9 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -175,10 +175,7 @@ let _ = add "ADDPATH" (function | [VARG_STRING dir] -> - let alias = Filename.basename dir in - if alias = "" then - error ("Cannot map "^dir^" to a root of Coq library"); - (fun () -> add_path dir [alias]) + (fun () -> add_path dir [Nametab.default_root]) | [VARG_STRING dir ; VARG_QUALID alias] -> let aliasdir,aliasname = repr_qualid alias in (fun () -> add_path dir (aliasdir@[aliasname])) @@ -195,12 +192,7 @@ let _ = add "RECADDPATH" (function | [VARG_STRING dir] -> - let alias = Filename.basename dir in - if alias = "" then - error ("Cannot map "^dir^" to a root of Coq library"); - (fun () -> - add_rec_path dir [alias]; - Nametab.push_library_root alias) + (fun () -> add_rec_path dir [Nametab.default_root]) | [VARG_STRING dir ; VARG_QUALID alias] -> let aliasdir,aliasname = repr_qualid alias in (fun () -> |