diff options
| -rw-r--r-- | bytecomp/bytegen.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml index 6139d401d..b86757d62 100644 --- a/bytecomp/bytegen.ml +++ b/bytecomp/bytegen.ml @@ -112,6 +112,8 @@ let rec size_of_lambda = function 1 + IdentSet.cardinal(free_variables funct) | Lprim(Pmakeblock(tag, mut), args) -> List.length args + | Lprim(Pmakearray kind, args) -> + List.length args | Llet(str, id, arg, body) -> size_of_lambda body | Lletrec(bindings, body) -> |