From 8d5165155dc4d9e4c03507609bf1b7a24a8ce4d0 Mon Sep 17 00:00:00 2001 From: Paul Steckler Date: Wed, 6 Sep 2017 12:13:42 -0400 Subject: use get_arguments, String.concat, remove -I --- ide/coqide.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ide') diff --git a/ide/coqide.ml b/ide/coqide.ml index 6b24740b3..2c8ce0049 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 -- cgit v1.2.3