diff options
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 |