diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-06 19:53:07 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-12-06 19:53:07 +0100 |
| commit | 185a8ea39b1dbd795aa54b7b9c82e393a9185765 (patch) | |
| tree | 8dfaece32823b8ff65c2a6acadd68c23ad6453c5 /src/pretty.ml | |
| parent | 41149667006a5606cf142a6e73cb6748b1212045 (diff) | |
| download | LPC-Projet-185a8ea39b1dbd795aa54b7b9c82e393a9185765.tar.gz LPC-Projet-185a8ea39b1dbd795aa54b7b9c82e393a9185765.zip | |
Corrected many bugs, improved error reporting.
Diffstat (limited to 'src/pretty.ml')
| -rw-r--r-- | src/pretty.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |