diff options
| author | Gaëtan Gilbert | 2018-07-10 15:25:11 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-07-24 13:49:18 +0200 |
| commit | 076bb351257dfd3c605c010d95484f224bef5e56 (patch) | |
| tree | a03ae69145ed806d4c97ca9de7d3b560b34b6478 /kernel/cbytegen.ml | |
| parent | d03deb978a6747a9fb6ce33cb6ed5063d36c7b42 (diff) | |
VM: don't duplicate projection narg information in lproj/kproj
Diffstat (limited to 'kernel/cbytegen.ml')
| -rw-r--r-- | kernel/cbytegen.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 6677db2fd9..4613cd3214 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -492,8 +492,8 @@ let rec compile_lam env cenv lam sz cont = | Lval v -> compile_structured_constant cenv v sz cont - | Lproj (n,kn,arg) -> - compile_lam env cenv arg sz (Kproj (n,kn) :: cont) + | Lproj (p,arg) -> + compile_lam env cenv arg sz (Kproj p :: cont) | Lvar id -> pos_named id cenv :: cont |