suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

up

Browse Source 
svn: r4417
This commit is contained in:
Jay McCarthy 2006-09-22 18:29:46 +00:00
parent 5bbbddac7d
commit 71b92e97d0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/private/request.ss
View File

@ -226,6 +226,8 @@
(let skip-preamble () (let skip-preamble ()
(define line (read-bytes-line in 'return-linefeed)) (define line (read-bytes-line in 'return-linefeed))
(cond (cond
[(eof-object? line)
(network-error 'read-mime-multipart "Port prematurely closed.")]
[(bytes=? line start-boundary) [(bytes=? line start-boundary)
(let read-parts () (let read-parts ()
(define headers (read-headers in)) (define headers (read-headers in))
@ -239,6 +241,8 @@
headers contents)))]) headers contents)))])
(define line (read-bytes-line in 'return-linefeed)) (define line (read-bytes-line in 'return-linefeed))
(cond (cond
[(eof-object? line)
(network-error 'read-mime-multipart "Port prematurely closed.")]
[(bytes=? line start-boundary) [(bytes=? line start-boundary)
(more-k empty)] (more-k empty)]
[(bytes=? line end-boundary) [(bytes=? line end-boundary)