diff options
Diffstat (limited to 'interpret')
| -rw-r--r-- | interpret/data.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |