From 47a0ebcc99b1fca1d6847eec4f40110ea962acfe Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 25 Nov 2013 16:42:59 -0800
Subject: [PATCH] compiler.tree.propagation.transforms: faster H{ } and HS{ }
 clone.

---
 .../compiler/tree/propagation/transforms/transforms.factor  | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index d6f7912f38..e0ce989dff 100644
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -9,7 +9,7 @@ math.integers.private layouts math.order vectors hashtables
 combinators effects generalizations sequences.generalizations
 assocs sets combinators.short-circuit sequences.private locals
 growable stack-checker namespaces compiler.tree.propagation.info
-hash-sets ;
+hash-sets arrays hashtables.private ;
 FROM: math => float ;
 FROM: sets => set members ;
 IN: compiler.tree.propagation.transforms
@@ -156,8 +156,8 @@ IN: compiler.tree.propagation.transforms
 \ clone [
     in-d>> first value-info literal>> {
         { V{ } [ [ drop { } 0 vector boa ] ] }
-        { H{ } [ [ drop 0 <hashtable> ] ] }
-        { HS{ } [ [ drop 0 <hash-set> ] ] }
+        { H{ } [ [ drop 0 0 8 ((empty)) <array> hashtable boa ] ] }
+        { HS{ } [ [ drop 0 0 4 ((empty)) <array> hash-set boa ] ] }
         [ drop f ]
     } case
 ] "custom-inlining" set-word-prop