diff options
Diffstat (limited to 'src/pretty.ml')
| -rw-r--r-- | src/pretty.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/pretty.ml b/src/pretty.ml index 4420ac1..6144cf3 100644 --- a/src/pretty.ml +++ b/src/pretty.ml @@ -146,8 +146,7 @@ let print_class_decl c = (List.fold_left (fun x t -> x ^ " public " ^ t) "" s)) ^ " {\n"); List.iter (function | CVar(t, i) -> print_string (" " ^ i ^ " : " ^ (var_type_str t) ^ "\n") - | CMethod(p) -> print_string (" " ^ (proto_str p) ^ "\n") - | CVirtualMethod(p) -> print_string (" virtual " ^ (proto_str p) ^ "\n") + | CMethod(p, v) -> print_string ((if v then " virtual " else " ") ^ (proto_str p) ^ "\n") ) c.c_members; print_string "}\n" |