diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 20:13:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 20:13:13 +0000 |
| commit | 93d263c5029cc8b53a9348c1ec96deeaecd5ebee (patch) | |
| tree | d117cb7887d1fd7c8774060da2d66502c62d32ad /toplevel | |
| parent | d0b581acab2cd1a544ecd328a2bcadf56dcaf5e3 (diff) | |
Nom qualifié pour option -top
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5593 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 2216828a0..7c0a5d315 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -51,7 +51,7 @@ let engage () = let set_batch_mode () = batch_mode := true let toplevel_name = ref (make_dirpath [id_of_string "Top"]) -let set_toplevel_name id = toplevel_name := make_dirpath [id_of_string id] +let set_toplevel_name dir = toplevel_name := dir let remove_top_ml () = Mltop.remove () @@ -168,7 +168,7 @@ let parse_args is_ide = | "-R" :: d :: p :: rem ->set_rec_include d (dirpath_of_string p);parse rem | "-R" :: ([] | [_]) -> usage () - | "-top" :: d :: rem -> set_toplevel_name d; parse rem + | "-top" :: d :: rem -> set_toplevel_name (dirpath_of_string d); parse rem | "-top" :: [] -> usage () | "-q" :: rem -> no_load_rc (); parse rem |