From 4204d25a2d277af1c16f55ee488e42c7b79bba1f Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Wed, 21 May 2014 17:57:06 +0200
Subject: All tests pass except one !

---
 libs/util.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'libs/util.ml')

diff --git a/libs/util.ml b/libs/util.ml
index 68332b6..b1fcdc4 100644
--- a/libs/util.ml
+++ b/libs/util.ml
@@ -9,3 +9,12 @@ let rec fix f s =
     else fix f fs
 
 let (@@) f x = f x
+
+let print_list x l =
+    Format.printf "%s: " x;
+    let rec aux = function
+        | [] -> ()
+        | [a] -> Format.printf "%s" a
+        | p::q -> Format.printf "%s, " p; aux q
+    in
+    Format.printf "["; aux l; Format.printf "]@.";
-- 
cgit v1.2.3