From 85237f65161cb9cd10119197c65c84f65f0262ee Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 18 Jan 2009 20:56:21 +0000
Subject: Backporting from v8.2 to trunk: - Filtering of doc compilation
 messages (11793,11795,11796). - Fixing bug #1925 and cleaning around bug
 #1894 (11796, 11801). - Adding some tests.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11802 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/check.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'checker')

diff --git a/checker/check.ml b/checker/check.ml
index 40ac604e03..82df62b4c2 100644
--- a/checker/check.ml
+++ b/checker/check.ml
@@ -211,7 +211,7 @@ let locate_absolute_library dir =
   if loadpath = [] then raise LibUnmappedDir;
   try
     let name = string_of_id base^".vo" in
-    let _, file = System.where_in_path false loadpath name in
+    let _, file = System.where_in_path ~warn:false loadpath name in
     (dir, file)
   with Not_found ->
   (* Last chance, removed from the file system but still in memory *)
@@ -231,7 +231,7 @@ let locate_qualified_library qid =
     in
     if loadpath = [] then raise LibUnmappedDir;
     let name =  qid.basename^".vo" in
-    let path, file = System.where_in_path true loadpath name in
+    let path, file = System.where_in_path loadpath name in
     let dir =
       extend_dirpath (find_logical_path path) (id_of_string qid.basename) in
     (* Look if loaded *)
-- 
cgit v1.2.3