From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 16 Jul 2015 03:03:26 +0000 (-0700)
Subject: base64: Fix load error. $[ and ${ run at parse-time currently, so they can't call... 
X-Git-Tag: unmaintained~2426
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=1fc2e659e82f138a5d80a06ca7240aeb3b89de88

base64: Fix load error. $[ and ${ run at parse-time currently, so they can't call words that haven't been compiled yet.
---

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 3ea906b790..140d897cc3 100644
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -21,8 +21,10 @@ ERROR: malformed-base64 ;
     '[ _ _ read1-ignoring push-ignoring ] times
     [ f ] [ "" like ] if-empty ; inline
 
+<<
 CONSTANT: alphabet
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+>>
 
 : alphabet-inverse ( alphabet -- seq )
     dup supremum 1 + f <array> [