From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 15:31:48 +0000 (-0700)
Subject: base64: separate read-into-ignoring.
X-Git-Tag: unmaintained~2417
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=04c5f5bfce88abe4fde69658effba592117141e9

base64: separate read-into-ignoring.
---

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