From 3e7e47b9c0c867421327270b507eb97e8d7f273b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 29 Apr 2014 15:59:48 -0700 Subject: [PATCH] base64: inline the { 3 2 1 0 } [ -6 * ]. --- basis/base64/base64.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.34.1