core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / basis / compression / huffman / huffman.factor

diff --git a/basis/compression/huffman/huffman.factor b/basis/compression/huffman/huffman.factor
index 03927e5a48ab78d437638e074a34a8571622d593..33d7b17f052b57747f8e7cde55769943abb2db12 100644 (file)
--- a/basis/compression/huffman/huffman.factor
+++ b/basis/compression/huffman/huffman.factor
@@ -27,7 +27,7 @@ TUPLE: huffman-code
 :: all-patterns ( huffman-code n -- seq )
     n log2 huffman-code size>> - :> free-bits
     free-bits 0 >
-    [ free-bits 2^ iota [ huffman-code code>> free-bits 2^ * + ] map ]
+    [ free-bits 2^ <iota> [ huffman-code code>> free-bits 2^ * + ] map ]
     [ huffman-code code>> free-bits neg 2^ /i 1array ] if ;
 
 :: huffman-each ( ... tdesc quot: ( ... huffman-code -- ... ) -- ... )