diff options
| author | Alain Frisch <alain@frisch.fr> | 2012-09-18 16:30:32 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2012-09-18 16:30:32 +0000 |
| commit | 631cac94cb1442ae8330ff41904763756c86eaa2 (patch) | |
| tree | 42ed1603ba0af34847531096fafd0e5e7eecb27a /experimental | |
| parent | 6a8f1cbb9a658f53f7aabda09d0b47dc834b3561 (diff) | |
| download | ocaml-631cac94cb1442ae8330ff41904763756c86eaa2.tar.gz | |
Fix.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12932 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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 [] |