From 981f900bb0358eee7ddf5ada1d09b0c629bfdc5b Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Tue, 10 Dec 2013 11:07:08 +0100 Subject: Many things. Remains : inheritance. --- src/pretty_typing.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/pretty_typing.ml') diff --git a/src/pretty_typing.ml b/src/pretty_typing.ml index 26e5b49..2e0d321 100644 --- a/src/pretty_typing.ml +++ b/src/pretty_typing.ml @@ -66,7 +66,7 @@ let rec print_stmt l x = print_string (addr ^ i ^ " : " ^ (var_type_str ty) ^ "\n") | TSDeclareAssignExpr((ty,b), i, e) -> let addr = (if b then "&" else "") in print_string (addr ^ i ^ " : " ^ (var_type_str ty) ^ " = " ^ (expr_string e) ^ "\n") - | TSDeclareAssignConstructor(t, i, c, a) -> () (*print_string + | TSDeclareAssignConstructor(t, i, _, c, a) -> () (*print_string (i ^ " : " ^ (var_type_str t) ^ " = " ^ c ^ "(" ^ (csl expr_string a) ^ ")\n")*) | TSWriteCout(k) -> print_string ("std::cout" ^ -- cgit v1.2.3