diff options
| author | Pierre-Marie Pédrot | 2021-01-15 11:20:38 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-15 11:20:38 +0100 |
| commit | 58a4f645ee6d306cb824c2ac2dfa21e460b9692a (patch) | |
| tree | d4c5331630e06cfc0951ab32d5d7571f7594cb13 /kernel/vmbytegen.ml | |
| parent | eb25e63d58555a67b74a046b8bdf2ab6252164c0 (diff) | |
| parent | 5820a964a5b380d82923be7905cdacd6fa6bd6c3 (diff) | |
Merge PR #13678: Cleaning up the bytecode interpreter
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/vmbytegen.ml')
| -rw-r--r-- | kernel/vmbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vmbytegen.ml b/kernel/vmbytegen.ml index 70c92fd8f0..20de4bc81b 100644 --- a/kernel/vmbytegen.ml +++ b/kernel/vmbytegen.ml @@ -569,7 +569,7 @@ let rec compile_lam env cenv lam sz cont = | Lprod (dom,codom) -> let cont1 = - Kpush :: compile_lam env cenv dom (sz+1) (Kmakeprod :: cont) in + Kpush :: compile_lam env cenv dom (sz+1) (Kmakeblock (2,0) :: cont) in compile_lam env cenv codom sz cont1 | Llam (ids,body) -> |