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

uu: simplify a little bit.

db4
John Benediktsson 2015-12-27 10:00:22 -08:00
parent 7e40b60374
commit 7ddc074294
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/uu/uu.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: combinators.short-circuit io io.streams.string kernel
locals make math math.bitwise namespaces sequences ;
USING: io io.streams.string kernel locals make math math.bitwise
math.order namespaces sequences ;
IN: uu
@ -40,15 +40,13 @@ ERROR: bad-length seq ;
ERROR: illegal-character ch ;
: check-illegal-character ( ch -- ch )
dup { [ CHAR: \s < ] [ CHAR: \s 64 + > ] } 1||
[ illegal-character ] when ;
dup CHAR: \s dup 64 + between? [ illegal-character ] unless ;
:: ascii>binary ( seq -- seq' )
0 :> char!
0 :> bits!
seq unclip-slice dup CHAR: \s =
[ drop 0 ] [ CHAR: \s - ] if :> len!
seq unclip-slice CHAR: \s - :> len!
[
[ dup empty? not len 0 > and ] [