From d9e6784db8eae6d67cba5a2f14167e4a12a017a1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 07:31:09 -0700
Subject: [PATCH] base85: simplify (encode-base85).

---
 extra/base85/base85.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extra/base85/base85.factor b/extra/base85/base85.factor
index 50a5a9607b..d8f5e6a77d 100644
--- 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