Quellcode durchsuchen

use flash9 directory

Nicolas Cannasse vor 19 Jahren
Ursprung
Commit
d2af42973c
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      typer.ml

+ 1 - 0
typer.ml

@@ -2195,6 +2195,7 @@ let load ctx m p =
 				| [] , name -> name
 				| x :: l , name ->
 					if List.mem x (!forbidden_packages) then error ("You can't access the " ^ x ^ " package with current compilation flags") p;
+					let x = (match x with "flash" when Plugin.defined "flash9" -> "flash9" | _ -> x) in
 					String.concat "/" (x :: l) ^ "/" ^ name
 			) ^ ".hx" in
 			let file = (try Plugin.find_file file with Not_found -> raise (Error (Module_not_found m,p))) in