Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/basis/compression/huffman/huffman.factor b/basis/compression/huffman/huffman.factor
index 0c3db049939fb8269b4fa1ba508f79f559fdb1f8..7b5582a0b6fd770d853f7b293f9aa80956e004b5 100644 (file)
--- a/basis/compression/huffman/huffman.factor
+++ b/basis/compression/huffman/huffman.factor
@@ -35,7 +35,7 @@ TUPLE: huffman-code
     tdesc\r
     [\r
         code next-size\r
-        [ code (>>value) code clone quot call code next-code ] each\r
+        [ code value<< code clone quot call code next-code ] each\r
     ] each ; inline\r
 \r
 : update-reverse-table ( huffman-code n table -- )\r