__ prefix -> std + first lookup in real 'std' package

doc/CHANGES.txt

@@ -35,7 +35,7 @@
 	all : null, true and false are now keywords
 	all : neko.io.Path, cpp.io.Path and php.io.Path are now haxe.io.Path
 	neko, cpp, php : added Sys class, sys.io and sys.net packages and "sys" define
-	all : allow to access root package with __ prefix (__.Type for example)
+	all : allow to access root package with std prefix (std.Type for example)
 
 2011-09-25: 2.08
 	js : added js.JQuery

std/cpp/Sys.hx

@@ -1,5 +1,5 @@
 package cpp;
 
 #if !haxe3
-typedef Sys = __.Sys
+typedef Sys = std.Sys
 #end

std/neko/Sys.hx

@@ -1,5 +1,5 @@
 package neko;
 
 #if !haxe3
-typedef Sys = __.Sys;
+typedef Sys = std.Sys;
 #end

std/php/Sys.hx

@@ -1,5 +1,5 @@
 package php;
 
 #if !haxe3
-typedef Sys = __.Sys
+typedef Sys = std.Sys
 #end

typeload.ml

@@ -76,8 +76,15 @@ let rec load_type_def ctx p t =
 	with
 		Not_found ->
 			let next() =
-				let t = (match t.tpackage with "__" :: l -> { t with tpackage = l } | _ -> t) in
-				let m = ctx.g.do_load_module ctx (t.tpackage,t.tname) p in
+				let t, m = (try
+					t, ctx.g.do_load_module ctx (t.tpackage,t.tname) p
+				with Error (Module_not_found _,p2) as e when p == p2 -> 
+					match t.tpackage with
+					| "std" :: l ->
+						let t = { t with tpackage = l } in
+						t, ctx.g.do_load_module ctx (t.tpackage,t.tname) p
+					| _ -> raise e
+				) in
 				let tpath = (t.tpackage,tname) in
 				try
 					List.find (fun t -> not (t_infos t).mt_private && t_path t = tpath) m.m_types