base64: include alphabet-inverse in compilation unit

2015-07-15 20:17:52 -07:00 · 2015-07-15 20:17:52 -07:00 · 3d55e79a2c
parent 916d8a12d9
commit 3d55e79a2c
1 changed files with 1 additions and 1 deletions
--- 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