From 7b3e0c64f0e9e7caec811b9c434f2302867ca003 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 22 Nov 2008 00:16:16 -0600 Subject: [PATCH] oops --- basis/mime/multipart/multipart.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor index 3e39f46aa4..4c7b95699e 100644 --- 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 -- ? )