diff options
| author | Pierre-Marie Pédrot | 2021-03-26 12:14:06 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-26 12:15:39 +0100 |
| commit | 5816889f48f7498017a740c6e501a1fb8aaafccf (patch) | |
| tree | ac3d2c232847eefd4bcdf6185456f2a0489157cd /kernel/nativelambda.ml | |
| parent | 35c1d9e7add9a415d1406e6bb1eae7bd67ba5357 (diff) | |
Similar fix for native compilation.
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index f3b483467d..aa30a01134 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -381,10 +381,7 @@ let makeblock env ind tag nparams arity args = Lmakeblock(prefix, ind, tag, args) let makearray args def = - try - let p = Array.map get_value args in - Lval (Nativevalues.parray_of_array p (get_value def)) - with Not_found -> Lparray (args, def) + Lparray (args, def) (* Translation of constants *) |