From 8c8b09c94a5aaa948c2c9c1985eaf58bae89deb9 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 5 Feb 2013 09:57:27 +0100 Subject: [PATCH] better pretty printing of S-exprs --- sexpr.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/sexpr.ml b/sexpr.ml index 20f3c63..b6f7fbc 100644 --- a/sexpr.ml +++ b/sexpr.ml @@ -95,13 +95,15 @@ let pp_token formatter token = match token with (** Print a sequence of Sexpr tokens on the given formatter *) let pp_tokens formatter tokens = let first = ref true in + let last = ref false in Sequence.iter (fun token -> (match token with | `Open -> (if not !first then Format.fprintf formatter " "); first := true - | `Close -> first := false + | `Close -> first := false; last := true | _ -> if !first then first := false else Format.fprintf formatter " "); - pp_token formatter token) + pp_token formatter token; + if !last then (Format.pp_print_break formatter 0 0; last := false)) tokens (** Pretty-print the S-expr. If [indent] is true, the S-expression