base64: include alphabet-inverse in compilation unit
parent
916d8a12d9
commit
3d55e79a2c
|
@ -24,12 +24,12 @@ ERROR: malformed-base64 ;
|
||||||
<<
|
<<
|
||||||
CONSTANT: alphabet
|
CONSTANT: alphabet
|
||||||
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
|
||||||
>>
|
|
||||||
|
|
||||||
: alphabet-inverse ( alphabet -- seq )
|
: alphabet-inverse ( alphabet -- seq )
|
||||||
dup supremum 1 + f <array> [
|
dup supremum 1 + f <array> [
|
||||||
'[ swap _ set-nth ] each-index
|
'[ swap _ set-nth ] each-index
|
||||||
] keep ;
|
] keep ;
|
||||||
|
>>
|
||||||
|
|
||||||
: ch>base64 ( ch -- ch )
|
: ch>base64 ( ch -- ch )
|
||||||
alphabet nth ; inline
|
alphabet nth ; inline
|
||||||
|
|
Loading…
Reference in New Issue