bug in mime parsing

svn: r3485
2006-06-26 23:12:37 +00:00 · 2006-06-26 23:12:37 +00:00 · 8b682d434b
commit 8b682d434b
parent 98620ae135
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/private/request.ss
+++ b/collects/web-server/private/request.ss
@ -203,7 +203,7 @@
  
  ; mime-part : (listof header?) * (listof bytes?)
  (define-struct mime-part (headers contents))
-  (define CR-NL #"#\return#\newline")
+  (define CR-NL #"\r\n")
  (define (construct-mime-part headers body)
    (make-mime-part
     headers