factor: remove extra whitespace

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

diff --git a/basis/compression/huffman/huffman.factor b/basis/compression/huffman/huffman.factor
index 6f7559ca49658b63d4089037144c94472367a11a..c36754b8d9698eebbfcef09ffee2b8577a9cafa8 100644 (file)
--- a/basis/compression/huffman/huffman.factor
+++ b/basis/compression/huffman/huffman.factor
@@ -66,7 +66,7 @@ TUPLE: huffman-tree
 : gen-leaves ( lit-seq -- leaves )
     [ huffman-tree new swap >>code ] map ; 
 
-: build-leaf-table ( leaves --  )
+: build-leaf-table ( leaves -- )
     dup empty? [ drop ] [ dup first leaf-table get inc-at rest build-leaf-table ] if ;
  
 : insert-leaves ( -- ) leaf-table get unzip swap zip node-heap get heap-push-all  ;