diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-17 13:48:55 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-17 13:48:55 +0000 |
| commit | 632cc186a28d7a0512c35247124d5fd1a0501c23 (patch) | |
| tree | 71d256aa96827a99c2d892e1bc0a40f1648280ce | |
| parent | 2a23ee437342bc6b29634666b5c3431607a549bb (diff) | |
Bug dans la compilation de 'include <module expression with free vars>' au toplevel d'un module natif
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4927 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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 = |