Fix base64 typo

release
Slava Pestov 2007-10-16 04:14:44 -04:00
parent e9075501b0
commit 0a1799f4b5
1 changed files with 1 additions and 1 deletions

View File

@ -33,7 +33,7 @@ PRIVATE>
: >base64 ( seq -- base64 )
#! cut string into two pieces, convert 3 bytes at a time
#! pad string with = when not enough bits
dup length dup 3 mod - swap
dup length dup 3 mod - cut swap
[
3 group [ encode3 % ] each
dup empty? [ drop ] [ >base64-rem % ] if