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 [