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

2020-04-02 12:32:05 -07:00 · 2020-04-02 12:32:05 -07:00 · 7deab681c6
parent 605dad2406
commit 7deab681c6
1 changed files with 1 additions and 1 deletions
--- a/basis/io/encodings/utf7/utf7.factor
+++ b/basis/io/encodings/utf7/utf7.factor
@ -34,7 +34,7 @@ TUPLE: utf7codec dialect buffer ;

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