From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 29 Apr 2014 22:59:48 +0000 (-0700)
Subject: base64: inline the { 3 2 1 0 } [ -6 * ].
X-Git-Tag: 0.97~553
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3e7e47b9c0c867421327270b507eb97e8d7f273b

base64: inline the { 3 2 1 0 } [ -6 * ].
---

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 7ca29c0119..0f25a812be 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -50,8 +50,8 @@ SYMBOL: column
 
 : encode3 ( seq -- )
     column output-stream get '[
-        swap be> { 3 2 1 0 } [
-            -6 * shift 0x3f bitand ch>base64 _ write1-lines
+        swap be> { -18 -12 -6 0 } [
+            shift 0x3f bitand ch>base64 _ write1-lines
         ] with each
     ] change ; inline