compression.inflate: use <array> instead of replicate

diff --git a/basis/compression/inflate/inflate.factor b/basis/compression/inflate/inflate.factor
index ae3a3cde86dd6455d1e8c1879208a614ae3e1eaf..fdc6b81e1252eb81f14f3e715761bbc173d48df1 100644 (file)
--- a/basis/compression/inflate/inflate.factor
+++ b/basis/compression/inflate/inflate.factor
@@ -84,12 +84,12 @@ CONSTANT: clen-shuffle { 16 17 18 0 8 7 9 6 10 5 11 4 12 3 13 2 14 1 15 }
 
 MEMO: static-huffman-tables ( -- obj )
     [
-          0 143 [a..b] length [ 8 ] replicate
-        144 255 [a..b] length [ 9 ] replicate append
-        256 279 [a..b] length [ 7 ] replicate append
-        280 287 [a..b] length [ 8 ] replicate append
+          0 143 [a..b] length 8 <array>
+        144 255 [a..b] length 9 <array>
+        256 279 [a..b] length 7 <array>
+        280 287 [a..b] length 8 <array>
     ] append-outputs
-    0 31 [a..b] length [ 5 ] replicate 2array
+    0 31 [a..b] length 5 <array> 2array
     [ [ length>> <iota> ] [ ] bi get-table ] map ;
 
 CONSTANT: length-table