Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / quoted-printable / quoted-printable.factor

diff --git a/basis/quoted-printable/quoted-printable.factor b/basis/quoted-printable/quoted-printable.factor
index 83fee523a08d75f89f0d2048a1a6f69d0674fc74..53af3a5178ab5655cb47e6342a7ef453a4d40465 100644 (file)
--- a/basis/quoted-printable/quoted-printable.factor
+++ b/basis/quoted-printable/quoted-printable.factor
@@ -23,16 +23,16 @@ IN: quoted-printable
 : char>quoted ( ch -- str )
     dup printable? [ 1string ] [
         assure-small >hex >upper
-        2 CHAR: 0 pad-left 
+        2 CHAR: 0 pad-head 
         CHAR: = prefix
     ] if ;
 
 : take-some ( seqs -- seqs seq )
     0 over [ length + dup 76 >= ] find drop nip
-    [ 1- cut-slice swap ] [ f swap ] if* concat ;
+    [ 1 - cut-slice swap ] [ f swap ] if* concat ;
 
 : divide-lines ( strings -- strings )
-    [ dup ] [ take-some ] [ ] produce nip ;
+    [ dup ] [ take-some ] produce nip ;
 
 PRIVATE>
 
@@ -53,7 +53,7 @@ PRIVATE>
     ] when ;
 
 : read-quoted ( -- bytes )
-    [ read1 dup ] [ read-char ] [ drop ] B{ } produce-as ;
+    [ read1 dup ] [ read-char ] B{ } produce-as nip ;
 
 PRIVATE>