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

2010-07-11 14:35:28 +08:00 · 2010-07-11 14:35:28 +08:00 · 3e63343fbc
parent 29d0458814
commit 3e63343fbc
1 changed files with 2 additions and 1 deletions
--- a/src/boot/driver/lib.ml
+++ b/src/boot/driver/lib.ml
@ -176,7 +176,8 @@ let get_mod
          let dh = Unix.opendir dir in
          let rec scan _ =
            try
-              let file = Unix.readdir dh in
+              let basename = Unix.readdir dh in
+              let file = dir ^ "/" ^ basename in
                log sess "considering file %s" file;
                if (Filename.check_suffix file suffix) &&
                  (file_matches file)