diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-07-30 14:24:13 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-07-30 14:24:41 +0200 |
| commit | 62175a1b14c8db7d92ea49d7442434ea60c4d1a1 (patch) | |
| tree | 724322bbc6d2e6e26a9ceeda341463af983c72ff /kernel | |
| parent | e1d69ae5106f69cc7e683402fd0125b40a7504e2 (diff) | |
Avoid hconsing instances during appends and conversions from/to arrays.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index fc060940c..9fc067394 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1770,9 +1770,9 @@ struct let append x y = if Array.length x = 0 then y else if Array.length y = 0 then x - else hcons (Array.append x y) + else Array.append x y - let of_array a = hcons a + let of_array a = a let to_array a = a |