oops

2008-11-22 00:16:16 -06:00 · 2008-11-22 00:16:16 -06:00 · 7b3e0c64f0
parent b5a1aa2036
commit 7b3e0c64f0
1 changed files with 1 additions and 1 deletions
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@ -32,7 +32,7 @@ TUPLE: multipart-stream stream n leftover separator ;
        quot unless-empty
    ] [
        stream (>>leftover)
-        [ quot call ] unless-empty
+        quot unless-empty
    ] if-empty f quot call f ;

 :: multipart-step-not-found ( stream end-stream? separator quot -- ? )