don't touch config_util

Author: jchavarri

jscomp/core/config_util.ml

@@ -30,7 +30,7 @@
 let find_in_path_uncap path name =
   let uname = Ext_string.uncapitalize_ascii name in
   let rec try_dir = function
-    | [] -> if Sys.file_exists name then Some name else None
+    | [] -> None
     | dir::rem ->      
       let ufullname = Filename.concat dir uname in
       if Sys.file_exists ufullname then Some ufullname

jscomp/main/jsoo_main.ml

@@ -107,6 +107,13 @@ let export (field : string) v =
   Js.Unsafe.set (Js.Unsafe.global) field v
 ;;
 
+(* To add a directory to the load path *)
+
+let dir_directory d =
+  Config.load_path := d :: !Config.load_path
+let () =
+  dir_directory "/static"
+
 let make_compiler name impl =
   export name
     (Js.Unsafe.(obj