aboutsummaryrefslogtreecommitdiffhomepage
path: root/toplevel
diff options
context:
space:
mode:
Diffstat (limited to 'toplevel')
-rw-r--r--toplevel/coqtop.ml4
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