diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2002-10-01 12:49:20 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2002-10-01 12:49:20 +0000 |
| commit | 19e8e771ad0b0ea97b02bbd004c5f6a8d94bd1f3 (patch) | |
| tree | 1875ea97b4091eaeffdf90a61b89a03c3e86a137 /bytecomp/translcore.ml | |
| parent | b4923502419129073d232f368f4c9fa7673fbe64 (diff) | |
| download | ocaml-dynamics.tar.gz | |
restart developpingdynamics
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/dynamics@5152 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/translcore.ml')
| -rw-r--r-- | bytecomp/translcore.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index 1b326296eb..df029ea8d6 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -621,7 +621,7 @@ let rec transl_exp e = | Texp_dynamic (exp) -> begin try Lapply(Transltype.rtype_prim "dynamic_comp", - [ make_block 0 [ Transltype.transl_run_type_of_typexp + [ make_block 0 [ Transltype.transl_run_type_of_type_expr exp.exp_env exp.exp_type ]; transl_exp exp ]) with @@ -637,7 +637,7 @@ let rec transl_exp e = [Const_base(Const_string !Location.input_name); Const_base(Const_int e.exp_loc.Location.loc_start); Const_base(Const_int e.exp_loc.Location.loc_end)])); - make_block 0 [ Transltype.transl_run_type_of_typexp + make_block 0 [ Transltype.transl_run_type_of_type_expr e.exp_env e.exp_type ]; transl_exp exp ]) with |