diff options
Diffstat (limited to 'experimental')
| -rw-r--r-- | experimental/frisch/js_syntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/experimental/frisch/js_syntax.ml b/experimental/frisch/js_syntax.ml index 10b73778c4..5e332f92fc 100644 --- a/experimental/frisch/js_syntax.ml +++ b/experimental/frisch/js_syntax.ml @@ -97,7 +97,7 @@ let mapper = (fun x -> apply_ "Js.Unsafe.set" [x; method_literal meth; annot e prop_type]) | Pexp_apply ({pexp_desc = Pexp_send (o, meth); pexp_loc = loc}, args) when js -> - method_call loc o meth (List.map snd args) + method_call loc o meth (List.map (this # expr) (List.map snd args)) | Pexp_send (o, meth) when js -> method_call loc o meth [] |