diff options
author | Son Ho | 2022-01-06 15:37:55 +0100 |
---|---|---|
committer | Son Ho | 2022-01-06 15:37:55 +0100 |
commit | ef7141aab368f682a3846a56624f3c1b90dc445c (patch) | |
tree | ba83b1aebeb473037ee191c4a3e08a5569d8e451 | |
parent | 38edb4c01773626b89ff527bf8a0e1b76bd1abc6 (diff) |
Fix some printing issues
Diffstat (limited to '')
-rw-r--r-- | src/Print.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Print.ml b/src/Print.ml index de1952e1..f265cacb 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -739,7 +739,7 @@ module CfimAst = struct indent ^ "set_discriminant(" ^ place_to_string fmt p ^ ", " ^ T.VariantId.to_string variant_id ^ ")" - | A.Drop p -> "drop(" ^ place_to_string fmt p ^ ")" + | A.Drop p -> indent ^ "drop(" ^ place_to_string fmt p ^ ")" | A.Assert a -> let cond = operand_to_string fmt a.A.cond in if a.A.expected then indent ^ "assert(" ^ cond ^ ")" @@ -777,7 +777,7 @@ module CfimAst = struct | A.Nop -> indent ^ "nop" | A.Sequence (st1, st2) -> statement_to_string fmt indent indent_incr st1 - ^ "\n" + ^ ";\n" ^ statement_to_string fmt indent indent_incr st2 | A.Switch (op, tgts) -> ( let op = operand_to_string fmt op in |