From 04c5f5bfce88abe4fde69658effba592117141e9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 08:31:48 -0700
Subject: [PATCH] base64: separate read-into-ignoring.

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

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 14a3ed464e..500784ef7f 100644
--- 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
-- 
2.34.1