|
@@ -187,7 +187,7 @@ module Simplifier = struct
|
|
in
|
|
in
|
|
let has_unbound = ref false in
|
|
let has_unbound = ref false in
|
|
let rec loop e = match e.eexpr with
|
|
let rec loop e = match e.eexpr with
|
|
- | TLocal v when Meta.has Meta.Unbound v.v_meta && v.v_name <> "`trace" ->
|
|
|
|
|
|
+ | TCall({eexpr = TLocal v | TField({eexpr = TLocal v},_)},_) | TField({eexpr = TLocal v},_) | TLocal v when Meta.has Meta.Unbound v.v_meta && v.v_name <> "`trace" ->
|
|
has_unbound := true;
|
|
has_unbound := true;
|
|
e
|
|
e
|
|
| TBlock el ->
|
|
| TBlock el ->
|