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 /pretyping/nativenorm.ml | |
| parent | 55b2a4e0c24d691b71256c91ed54e245efce340b (diff) | |
[native_compute] Remove useless conversion to list in reification.
Diffstat (limited to 'pretyping/nativenorm.ml')
| -rw-r--r-- | pretyping/nativenorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index 79e0afa72..18ae22ab6 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -246,7 +246,7 @@ and nf_args env sigma accu t = let c = nf_val env sigma arg dom in (subst1 c codom, c::l) in - let t,l = List.fold_right aux (args_of_accu accu) (t,[]) in + let t,l = Array.fold_right aux (args_of_accu accu) (t,[]) in t, List.rev l and nf_bargs env sigma b t = |