From 9d280918051a77683fa7b9d15842eead22f7944a Mon Sep 17 00:00:00 2001
From: Alex Auvolat <alex.auvolat@ansys.com>
Date: Thu, 12 Jun 2014 16:48:43 +0200
Subject: Adopt same output format as test.c

---
 interpret/data.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'interpret')

diff --git a/interpret/data.ml b/interpret/data.ml
index 2721528..51afcc3 100644
--- a/interpret/data.ml
+++ b/interpret/data.ml
@@ -34,9 +34,9 @@ let get_var (st: state) (c: calc_map) (id: id) : (state * svalue) =
     if VarMap.mem id st then st
     else try match VarMap.find id c with
     | F f ->
-      Format.printf "%s[ " id;
+      (* Format.printf "%s[ " id; *)
       let r = f (VarMap.add id VBusy st) c in
-      Format.printf "]%s " id;
+      (* Format.printf "]%s " id; *)
       r
     with Not_found -> raise (No_variable id)
   in
-- 
cgit v1.2.3