base64: include alphabet-inverse in compilation unit

diff --git a/basis/base64/base64.factor b/basis/base64/base64.factor
index 140d897cc3104f5beb2c2d01a401ef74da9e3a90..c2efa32c1b331bf6dd7449a15935023f3ce1da45 100644 (file)
--- a/basis/base64/base64.factor
+++ b/basis/base64/base64.factor
@@ -24,12 +24,12 @@ ERROR: malformed-base64 ;
 <<
 CONSTANT: alphabet
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
->>
 
 : alphabet-inverse ( alphabet -- seq )
     dup supremum 1 + f <array> [
         '[ swap _ set-nth ] each-index
     ] keep ;
+>>
 
 : ch>base64 ( ch -- ch )
     alphabet nth ; inline