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

2014-04-29 15:59:48 -07:00 · 2014-04-29 15:59:48 -07:00 · 3e7e47b9c0
parent 568888c277
commit 3e7e47b9c0
1 changed files with 2 additions and 2 deletions
--- 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