diff --git a/libASL/asl.ott b/libASL/asl.ott index 77984705..9de121ef 100644 --- a/libASL/asl.ott +++ b/libASL/asl.ott @@ -630,8 +630,7 @@ s_elsif :: 'S_Elsif_' ::= optional_else :: 'S_Else' ::= {{ phantom }} {{ ocaml stmt list }} - {{ pp-raw x = match x with [] -> string "" - | ys -> string "(else " ^^ separate (string "\n") (List.map pp_raw_stmt ys) ^^ string ")" }} + {{ pp-raw x = pp_raw_indented_block x }} {{ pp x = match x with [] -> string "" | ys -> string "else {" ^^ hardline ^^ (nest 4 (separate (string "\n") (List.map pp_stmt ys @ [string "}"])))