From a0d3c8c3268f23c3fed89f9c30df9c3bbd604034 Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 20 Mar 2009 19:15:47 +0000
Subject: replaced dir_load by load_file because dir_load does not raise an
 exception when loading fails

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12000 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 scripts/coqmktop.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts')

diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml
index 85ea683e96..2c9c6d2130 100644
--- a/scripts/coqmktop.ml
+++ b/scripts/coqmktop.ml
@@ -236,7 +236,8 @@ let declare_loading_string () =
 
      let ppf = Format.std_formatter;;
      Mltop.set_top
-       {Mltop.load_obj=Topdirs.dir_load ppf;
+       {Mltop.load_obj=
+         (fun f -> if not (Topdirs.load_file ppf f) then failwith \"error\");
         Mltop.use_file=Topdirs.dir_use ppf;
         Mltop.add_dir=Topdirs.dir_directory;
         Mltop.ml_loop=(fun () -> Toploop.loop ppf) };;\n"
-- 
cgit v1.2.3