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

io.encodings.utf7: skip over first char when searching.

master
John Benediktsson 2020-04-02 12:32:05 -07:00
parent 605dad2406
commit 7deab681c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/encodings/utf7/utf7.factor
View File

@ -34,7 +34,7 @@ TUPLE: utf7codec dialect buffer ;
: split-chunk ( str -- after before printable? ) : split-chunk ( str -- after before printable? )
dup first printable? [ dup first printable? [
dupd '[ printable? _ = not ] find drop [ 1 over ] dip '[ printable? _ = not ] find-from drop
[ cut-slice ] [ f ] if* swap [ cut-slice ] [ f ] if* swap
] keep ; ] keep ;