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

oops

db4
Doug Coleman 2008-11-22 00:16:16 -06:00
parent b5a1aa2036
commit 7b3e0c64f0
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/mime/multipart/multipart.factor
View File

@ -32,7 +32,7 @@ TUPLE: multipart-stream stream n leftover separator ;
quot unless-empty quot unless-empty
] [ ] [
stream (>>leftover) stream (>>leftover)
[ quot call ] unless-empty quot unless-empty
] if-empty f quot call f ; ] if-empty f quot call f ;
:: multipart-step-not-found ( stream end-stream? separator quot -- ? ) :: multipart-step-not-found ( stream end-stream? separator quot -- ? )