base64: separate read-into-ignoring.

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 14a3ed464ee589d783497893935a86f7b46321d4..500784ef7f89dc219d6036c744bbf9c88faba47b 100644 (file)
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -69,10 +69,12 @@ PRIVATE>
 : push-ignoring ( accum ch -- accum )
     dup { f 0 } member-eq? [ drop ] [ suffix! ] if ; inline
 
-: read-ignoring ( n ignoring stream -- sbuf )
-    [ [ <sbuf> ] keep ] 2dip
+: read-into-ignoring ( accum n ignoring stream -- accum )
     '[ _ _ read1-ignoring push-ignoring ] times ; inline
 
+: read-ignoring ( n ignoring stream -- accum )
+    [ [ <sbuf> ] keep ] 2dip read-into-ignoring ; inline
+
 : decode4 ( seq -- )
     [ 0 [ base64>ch swap 6 shift bitor ] reduce 3 >be ]
     [ [ CHAR: = = ] count ] bi