Les classes recursives n'etaient pas placees dans l'ordre dans les

modules.


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1017 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

bytecomp/translmod.ml

@@ -148,7 +148,8 @@ and transl_structure fields cc = function
            (fun (id, cl) re ->
               Lsequence(transl_class id cl, re))
            cl_list
-	 (transl_structure ((List.map fst cl_list) @ fields) cc rem))
+	 (transl_structure
+            ((List.rev (List.map fst cl_list)) @ fields) cc rem))
 
 (* Compile an implementation *)