From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 23 Jul 2022 17:22:33 +0000 (-0500)
Subject: base64: don't use new word
X-Git-Tag: 0.99~1297
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=16e504b2ff28e4e0635a2597955235b64379af51

base64: don't use new word
---

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 38016ed417..a85768aafe 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -77,7 +77,7 @@ PRIVATE>
 <PRIVATE
 
 : read1-ignoring ( ignoring stream -- ch )
-    dup stream-read1 pick over member-eq-of?
+    dup stream-read1 pick dupd member-eq?
     [ drop read1-ignoring ] [ 2nip ] if ; inline recursive
 
 : read-ignoring ( n ignoring stream -- accum )