Nicolas Cannasse 13 年之前
父節點
當前提交
2e11718fd7
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -2158,7 +2158,7 @@ let generate ctx =
 		) c.cl_statics
 		) c.cl_statics
 
 
 	in
 	in
-	let sorted_modules = List.sort (fun m1 m2 -> compare m1.m_file m2.m_file) (Hashtbl.fold (fun _ m acc -> m :: acc) ctx.g.modules []) in	
+	let sorted_modules = List.sort (fun m1 m2 -> compare m1.m_path m2.m_path) (Hashtbl.fold (fun _ m acc -> m :: acc) ctx.g.modules []) in	
 	List.iter (fun m -> List.iter loop m.m_types) sorted_modules;
 	List.iter (fun m -> List.iter loop m.m_types) sorted_modules;
 	get_main ctx, List.rev !types, sorted_modules
 	get_main ctx, List.rev !types, sorted_modules