1
Fork 0

Let the compiler find libraries that aren't in the current directory.

This commit is contained in:
Jeffrey Yasskin 2010-07-11 14:35:28 +08:00 committed by Graydon Hoare
parent 29d0458814
commit 3e63343fbc

View file

@ -176,7 +176,8 @@ let get_mod
let dh = Unix.opendir dir in let dh = Unix.opendir dir in
let rec scan _ = let rec scan _ =
try try
let file = Unix.readdir dh in let basename = Unix.readdir dh in
let file = dir ^ "/" ^ basename in
log sess "considering file %s" file; log sess "considering file %s" file;
if (Filename.check_suffix file suffix) && if (Filename.check_suffix file suffix) &&
(file_matches file) (file_matches file)