steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/base64/base64.factor
View File

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