From edaedbc3727e42918c68c39dc270ddf86220ca8c Mon Sep 17 00:00:00 2001
From: letouzey
Date: Sat, 8 Dec 2012 23:33:33 +0000
Subject: 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
---
 scripts/coqmktop.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts')

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 () ^ "\""]
-- 
cgit v1.2.3