Skip to content

Commit

Permalink
Fix formatting trivia in Ast.fmt_stmt_body.
Browse files Browse the repository at this point in the history
  • Loading branch information
Jason Orendorff authored and graydon committed Jul 12, 2010
1 parent 2eafd28 commit 1d9212b
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/boot/fe/ast.ml
Expand Up @@ -1123,17 +1123,17 @@ and fmt_stmt_body (ff:Format.formatter) (s:stmt) : unit =
fmt_slot ff slot.node;
fmt ff " ";
fmt_ident ff ident;
fmt ff " = ";
fmt ff " in ";
fmt_lval ff f;
fmt_atoms ff az;
fmt ff " ";
fmt ff ") ";
fmt_obr ff;
fmt_stmts ff sf.for_each_body.node;
fmt_cbb ff
end

| STMT_put (atom) ->
fmt ff "put ";
fmt ff "put";
begin
match atom with
Some a -> (fmt ff " "; fmt_atom ff a)
Expand Down

0 comments on commit 1d9212b

Please sign in to comment.