]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/base64/base64.factor
use radix literals
[factor.git] / basis / base64 / base64.factor
index 9a577409364b1a4d545576f4fbbfa64cbc0e9e69..dd1af56def2937e4f834e5b796875d588c3bd3d8 100644 (file)
@@ -44,7 +44,7 @@ SYMBOL: column
 
 : encode3 ( seq -- )
     be> 4 iota <reversed> [
-        -6 * shift HEX: 3f bitand ch>base64 write1-lines
+        -6 * shift 0x3f bitand ch>base64 write1-lines
     ] with each ; inline
 
 : encode-pad ( seq n -- )