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

2015-07-15 20:03:26 -07:00 · 2015-07-15 20:03:26 -07:00 · 1fc2e659e8
parent 5b50bf43f3
commit 1fc2e659e8
1 changed files with 2 additions and 0 deletions
--- 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> [