aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <mattam@mattam.org>2014-07-30 14:24:13 +0200
committerGravatar Matthieu Sozeau <mattam@mattam.org>2014-07-30 14:24:41 +0200
commit62175a1b14c8db7d92ea49d7442434ea60c4d1a1 (patch)
tree724322bbc6d2e6e26a9ceeda341463af983c72ff /kernel
parente1d69ae5106f69cc7e683402fd0125b40a7504e2 (diff)
Avoid hconsing instances during appends and conversions from/to arrays.
Diffstat (limited to 'kernel')
-rw-r--r--kernel/univ.ml4
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