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

base85: simpler pad math.

freebsd-work
John Benediktsson 2019-01-26 07:14:09 -08:00
parent 4fbc726b1a
commit 82ad6cec2e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/base85/base85.factor
View File

@ -30,7 +30,7 @@ CONSTANT: alphabet
[ [
drop drop
[ 4 0 pad-tail encode4 ] [ 4 0 pad-tail encode4 ]
[ length neg 4 rem head-slice* write-lines ] bi [ length 4 swap - head-slice* write-lines ] bi
(encode-base85) (encode-base85)
] ]
} case ; } case ;
@ -55,7 +55,7 @@ PRIVATE>
[ [
drop drop
[ 5 CHAR: ~ pad-tail decode5 ] [ 5 CHAR: ~ pad-tail decode5 ]
[ length neg 5 rem head-slice* write ] bi [ length 5 swap - head-slice* write ] bi
(decode-base85) (decode-base85)
] ]
} case ; } case ;