diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-16 20:47:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-16 20:47:51 +0200 |
| commit | 303f644773969ff84d167e3361c6bb9f9545e8bf (patch) | |
| tree | 34e0d949f785a8ba51f632cf05a1486ebd109e19 /interp/constrintern.ml | |
| parent | 63aaabd93d32a4982803daff44900ecb0acb5b76 (diff) | |
Removing dead unsafe debugging code in Constrintern.
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index fb1baae0a..7c4688f9f 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -432,11 +432,6 @@ let intern_assumption intern lvar env nal bk ty = let env, b = intern_generalized_binder intern_type lvar env (List.hd nal) b b' t ty in env, b -let obj_string x = - if Obj.is_block (Obj.repr x) then - "tag = " ^ string_of_int (Obj.tag (Obj.repr x)) - else "int_val = " ^ string_of_int (Obj.magic x) - let rec free_vars_of_pat il = function | CPatCstr (loc, c, l1, l2) -> |