diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqc.ml | 3 | ||||
| -rw-r--r-- | scripts/coqmktop.ml | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index ce92b91183..e62a9d2f8c 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -150,8 +150,7 @@ let parse_args () = parse (cfiles,o::args) rem | ("-where") :: _ -> - (try print_endline (Envars.coqlib ()) - with Errors.UserError(_,pps) -> Pp.msgerrnl (Pp.hov 0 pps)); + print_endline (Envars.coqlib (fun x -> x)); exit 0 | ("-config" | "--config") :: _ -> Usage.print_config (); exit 0 diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index d0132763a0..55e12a30ed 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -56,7 +56,7 @@ let src_dirs () = [ []; ["kernel";"byterun"]; [ "config" ]; [ "toplevel" ] ] let includes () = - let coqlib = Envars.coqlib () in + let coqlib = Envars.coqlib Errors.error in let camlp4lib = Envars.camlp4lib () in List.fold_right (fun d l -> "-I" :: ("\"" ^ List.fold_left Filename.concat coqlib d ^ "\"") :: l) |