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-0dff7051ff02master
parent
e1c5e3e480
commit
3800faa6c0
|
@ -148,7 +148,8 @@ and transl_structure fields cc = function
|
||||||
(fun (id, cl) re ->
|
(fun (id, cl) re ->
|
||||||
Lsequence(transl_class id cl, re))
|
Lsequence(transl_class id cl, re))
|
||||||
cl_list
|
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 *)
|
(* Compile an implementation *)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue