From 185a8ea39b1dbd795aa54b7b9c82e393a9185765 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Fri, 6 Dec 2013 19:53:07 +0100 Subject: Corrected many bugs, improved error reporting. --- src/pretty.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/pretty.ml') diff --git a/src/pretty.ml b/src/pretty.ml index e618bfa..4420ac1 100644 --- a/src/pretty.ml +++ b/src/pretty.ml @@ -152,7 +152,7 @@ let print_class_decl c = print_string "}\n" let print_prog p = - List.iter (function + List.iter (fun k -> match k.d_desc with | DGlobal(t, i) -> print_string ("decl " ^ i ^ " : " ^ (var_type_str t) ^ "\n") | DFunction(p, b) -> print_string (proto_str p ^"\n"); print_block 0 b -- cgit v1.2.3