base64: Fix load error. $[ and ${ run at parse-time currently, so they can't call...

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 3ea906b790ddfc1b62e4b10a4011010e0581e725..140d897cc3104f5beb2c2d01a401ef74da9e3a90 100644 (file)
--- 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> [