]> gitweb.factorcode.org Git - factor.git/commitdiff
fix base64
authorDoug Coleman <erg@jobim.local>
Sat, 11 Apr 2009 17:12:09 +0000 (12:12 -0500)
committerDoug Coleman <erg@jobim.local>
Sat, 11 Apr 2009 17:12:09 +0000 (12:12 -0500)
basis/base64/base64.factor

index 111fe49f9567efd0db0ab3b6dddcc2e48b3580da..47147fa3066f90711f64dc5d6d1266f17b6c7fca 100644 (file)
@@ -5,6 +5,8 @@ io.streams.byte-array kernel math namespaces
 sequences strings io.crlf ;
 IN: base64
 
+ERROR: malformed-base64 ;
+
 <PRIVATE
 
 : read1-ignoring ( ignoring -- ch )
@@ -18,8 +20,6 @@ IN: base64
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
     nth ; inline
 
-ERROR: malformed-base64 ;
-
 : 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