use get_arguments, String.concat, remove -I

1 files changed, 3 insertions, 3 deletions

diff --git a/ide/coqide.ml b/ide/coqide.ml
index 6b24740b30..2c8ce0049e 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -439,9 +439,9 @@ let compile sn =
   match sn.fileops#filename with
     |None -> flash_info "Active buffer has no name"
     |Some f ->
-      let (_,args) = make_coqtop_args fn in
-      let cmd = cmd_coqc#get ^ " -I " ^ (Filename.quote (Filename.dirname f))
-	^ (List.fold_left (fun accum arg -> accum ^ " " ^ arg) "" args)
+      let args = Coq.get_arguments sn.coqtop in
+      let cmd = cmd_coqc#get 
+	^ " " ^ String.concat " " args
 	^ " " ^ (Filename.quote f) ^ " 2>&1"
       in
       let buf = Buffer.create 1024 in