From 43487d3baf695875482454ade1bdbc1403bfaaf6 Mon Sep 17 00:00:00 2001
From: Alex Auvolat <alex.auvolat@ansys.com>
Date: Wed, 18 Jun 2014 15:31:03 +0200
Subject: Add gilbreath suite ; booleans are not represented in a good way.

---
 frontend/ast_printer.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend')

diff --git a/frontend/ast_printer.ml b/frontend/ast_printer.ml
index c14d0d1..3ac881e 100644
--- a/frontend/ast_printer.ml
+++ b/frontend/ast_printer.ml
@@ -72,7 +72,7 @@ let print_list f sep fmt l =
   let rec aux = function
     | [] -> ()
     | [a] -> f fmt a
-    | a::b -> f fmt a; Format.pp_print_string fmt sep; aux b
+    | a::b -> f fmt a; Format.fprintf fmt "%s@," sep; aux b
   in
   aux l
 
-- 
cgit v1.2.3