base85: simplify (encode-base85).

diff --git a/extra/base85/base85.factor b/extra/base85/base85.factor
index 50a5a9607b1eac5c4884bcff04281fa8f69ffc01..d8f5e6a77df8015796cad3d3c0f3f65daaf46b7f 100644 (file)
--- a/extra/base85/base85.factor
+++ b/extra/base85/base85.factor
@@ -23,9 +23,9 @@ CONSTANT: alphabet
 : encode4 ( seq -- seq' )
     be> 5 [ 85 /mod ch>base85 ] B{ } replicate-as reverse! nip ; inline
 
-: (encode-base85) ( stream column -- column' )
+: (encode-base85) ( stream column -- )
     4 pick stream-read dup length {
-        { 0 [ 2drop ] }
+        { 0 [ 3drop ] }
         { 4 [ encode4 write-lines (encode-base85) ] }
         [ drop 4 0 pad-tail encode4 write-lines (encode-base85) ]
     } case ;
@@ -33,10 +33,10 @@ CONSTANT: alphabet
 PRIVATE>
 
 : encode-base85 ( -- )
-    input-stream get f (encode-base85) drop ;
+    input-stream get f (encode-base85) ;
 
 : encode-base85-lines ( -- )
-    input-stream get 0 (encode-base85) drop ;
+    input-stream get 0 (encode-base85) ;
 
 <PRIVATE