diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-01-30 10:05:14 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-05 12:51:49 +0100 |
| commit | 76579aff8f8534cbc990b5ea2652b33655512213 (patch) | |
| tree | 9a4af0643f42d2643b487412f644a0ad3a14e47a /kernel/nativeconv.ml | |
| parent | 55b2a4e0c24d691b71256c91ed54e245efce340b (diff) | |
[native_compute] Remove useless conversion to list in reification.
Diffstat (limited to 'kernel/nativeconv.ml')
| -rw-r--r-- | kernel/nativeconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index 9f9102f7d..6c755290d 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -54,7 +54,7 @@ and conv_accu env pb lvl k1 k2 cu = conv_atom env pb lvl (atom_of_accu k1) (atom_of_accu k2) cu else let cu = conv_atom env pb lvl (atom_of_accu k1) (atom_of_accu k2) cu in - List.fold_right2 (conv_val env CONV lvl) (args_of_accu k1) (args_of_accu k2) cu + Array.fold_right2 (conv_val env CONV lvl) (args_of_accu k1) (args_of_accu k2) cu and conv_atom env pb lvl a1 a2 cu = if a1 == a2 then cu |