Remove trace_strong in compiler

2020-07-03 08:24:50 -05:00 · 2020-07-03 08:24:50 -05:00 · cbf1680e36
commit cbf1680e36
parent 567515a5ce
1 changed files with 0 additions and 1 deletions
--- a/src/passes/13-stacking/compiler_program.ml
+++ b/src/passes/13-stacking/compiler_program.ml
@ -225,7 +225,6 @@ and translate_expression (expr:expression) (env:environment) : (michelson , stac
      | _ -> fail @@ corner_case ~loc:__LOC__ "expected function type"
    )
  | E_application (f , arg) -> (
-      trace_strong (corner_case ~loc:__LOC__ "Compiling quote application") @@
      let%bind f = translate_expression f (Environment.add (Location.wrap @@ Var.fresh (), arg.type_expression) env) in
      let%bind arg = translate_expression arg env in
      return @@ seq [