jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Mls printing order fix ( const at top of program )

Browse source
This commit is contained in:
Léonard Gérard 2010-08-17 23:26:47 +02:00
parent 64251c6298
commit 74faffa423
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/mls_printer.ml
View file

@ -221,7 +221,7 @@ let print oc { p_opened = pm; p_types = pt; p_nodes = pn; p_consts = pc } =
let ff = formatter_of_out_channel oc
in (
List.iter (print_open_module ff) pm;
List.iter (print_type_dec ff) pt;
List.iter (print_const_dec ff) pc;
List.iter (print_type_dec ff) pt;
List.iter (print_node ff) pn;
fprintf ff "@?" )