aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorletouzey2012-12-08 23:33:33 +0000
committerletouzey2012-12-08 23:33:33 +0000
commitedaedbc3727e42918c68c39dc270ddf86220ca8c (patch)
tree6a6f7561d3e82140e2591eb1d81b9c070c523761 /scripts
parentde46c3f782dd618e947e7270cd398abf1fd514c2 (diff)
Ensure that a function declared with a label is used with it
This correspond to ocaml4 warning 6 git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16053 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
-rw-r--r--scripts/coqmktop.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml
index 0373b82e94..76548aa3d6 100644
--- a/scripts/coqmktop.ml
+++ b/scripts/coqmktop.ml
@@ -71,7 +71,7 @@ let src_dirs =
[ []; ["lib"]; ["toplevel"]; ["kernel";"byterun"] ]
let includes () =
- let coqlib = if !Flags.boot then "." else Envars.coqlib Errors.error in
+ let coqlib = if !Flags.boot then "." else Envars.coqlib ~fail:Errors.error in
let mkdir d = "\"" ^ List.fold_left Filename.concat coqlib d ^ "\"" in
(List.fold_right (fun d l -> "-I" :: mkdir d :: l) src_dirs [])
@ ["-I"; "\"" ^ Envars.camlp4lib () ^ "\""]