From 93d263c5029cc8b53a9348c1ec96deeaecd5ebee Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 28 Mar 2004 20:13:13 +0000
Subject: Nom qualifié pour option -top

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5593 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/coqtop.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index 2216828a00..7c0a5d315a 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
-- 
cgit v1.2.3