From 9204d3c44d20ff217bd3d3d67003df6e12479c08 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 07:30:58 -0700
Subject: [PATCH] base64: simplify (encode-base64).

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

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 09f721d5e1..14a3ed464e 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -45,9 +45,9 @@ CONSTANT: alphabet
     [ 3 0 pad-tail encode3 ] [ 1 + ] bi* head-slice
     4 CHAR: = pad-tail ; inline
 
-: (encode-base64) ( stream column -- column' )
+: (encode-base64) ( stream column -- )
     3 pick stream-read dup length {
-        { 0 [ 2drop ] }
+        { 0 [ 3drop ] }
         { 3 [ encode3 write-lines (encode-base64) ] }
         [ encode-pad write-lines (encode-base64) ]
     } case ;
@@ -55,10 +55,10 @@ CONSTANT: alphabet
 PRIVATE>
 
 : encode-base64 ( -- )
-    input-stream get f (encode-base64) drop ;
+    input-stream get f (encode-base64) ;
 
 : encode-base64-lines ( -- )
-    input-stream get 0 (encode-base64) drop ;
+    input-stream get 0 (encode-base64) ;
 
 <PRIVATE
 
-- 
2.34.1