diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-29 17:50:09 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-29 17:50:09 +0000 |
| commit | 0fffe8d30f909612d73b5e927608d881f21423b2 (patch) | |
| tree | 5de7f5dcf05c76a3e73172eb0977253fd367a02a /toplevel/coqtop.ml | |
| parent | cde7dac0c5eb3d11b57054c4f7a6a9615dd96104 (diff) | |
Bug option -I et -R quand le répertoire est '..'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1037 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/coqtop.ml')
| -rw-r--r-- | toplevel/coqtop.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index c128332b2..cff15a003 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -85,7 +85,11 @@ let parse_include d = with Not_found -> let alias = Filename.basename d in let alias = - if alias = "." then Filename.basename (Unix.getcwd ()) else alias in + if alias = "." then + Filename.basename (Unix.getcwd ()) + else if alias = ".." then + Filename.basename (Filename.dirname (Unix.getcwd ())) + else alias in if not (Names.is_ident alias) then error ("Cannot find a name to which "^d^" may map in Coq library"); (d, [alias]) |