diff options
| -rw-r--r-- | bytecomp/translmod.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bytecomp/translmod.ml b/bytecomp/translmod.ml index c8c0a641a..99e1e89ae 100644 --- a/bytecomp/translmod.ml +++ b/bytecomp/translmod.ml @@ -268,7 +268,8 @@ let transl_store_structure glob map prims str = | id :: idl -> Llet(Alias, id, Lprim(Pfield pos, [Lvar mid]), Lsequence(store_ident id, store_idents (pos + 1) idl)) in - Llet(Strict, mid, transl_module Tcoerce_none None modl, + Llet(Strict, mid, + subst_lambda subst (transl_module Tcoerce_none None modl), store_idents 0 ids) and store_ident id = |