From 1fc2e659e82f138a5d80a06ca7240aeb3b89de88 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 15 Jul 2015 20:03:26 -0700 Subject: [PATCH] base64: Fix load error. $[ and ${ run at parse-time currently, so they can't call words that haven't been compiled yet. --- basis/base64/base64.factor | 2 ++ 1 file changed, 2 insertions(+) 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 [ -- 2.34.1