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

fix base64

db4
Doug Coleman 2009-04-11 12:12:09 -05:00
parent 9ac2214b62
commit 7f80b52619
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/base64/base64.factor
View File

@ -5,6 +5,8 @@ io.streams.byte-array kernel math namespaces
sequences strings io.crlf ; sequences strings io.crlf ;
IN: base64 IN: base64
ERROR: malformed-base64 ;
<PRIVATE <PRIVATE
: read1-ignoring ( ignoring -- ch ) : read1-ignoring ( ignoring -- ch )
@ -18,8 +20,6 @@ IN: base64
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
nth ; inline nth ; inline
ERROR: malformed-base64 ;
: base64>ch ( ch -- ch ) : base64>ch ( ch -- ch )
{ {
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f