fix

Author: zth

jscomp/ml/predef.ml

@@ -84,6 +84,8 @@ and path_list = Pident ident_list
 and path_option = Pident ident_option
 and path_result = Pident ident_result
 and path_dict = Pident ident_dict
+
+
 and path_int64 = Pident ident_int64
 and path_lazy_t = Pident ident_lazy_t
 and path_string = Pident ident_string
@@ -105,7 +107,7 @@ and type_array t = newgenty (Tconstr(path_array, [t], ref Mnil))
 and type_list t = newgenty (Tconstr(path_list, [t], ref Mnil))
 and type_option t = newgenty (Tconstr(path_option, [t], ref Mnil))
 and type_result t1 t2 = newgenty (Tconstr(path_result, [t1; t2], ref Mnil))
-and type_dict t = newgenty (Tconstr(path_option, [t], ref Mnil))
+and type_dict t = newgenty (Tconstr(path_dict, [t], ref Mnil))
 
 and type_int64 = newgenty (Tconstr(path_int64, [], ref Mnil))
 and type_lazy_t t = newgenty (Tconstr(path_lazy_t, [t], ref Mnil))