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

.

Browse Source 
original commit: 080f41a325b14478977966dc259d7e075740dd3a
This commit is contained in:
Matthew Flatt 2002-03-05 00:12:05 +00:00
parent a7b96ce7ff
commit f9b065678b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/net/mime-unit.ss
View File

@ -149,8 +149,9 @@
(lambda (in) (lambda (in)
(let loop ((headers "") (ln (read-line in 'any))) (let loop ((headers "") (ln (read-line in 'any)))
(cond ((eof-object? ln) (cond ((eof-object? ln)
(raise (make-unexpected-termination ;; (raise (make-unexpected-termination "eof reached! while parsing headers"))
"eof reached! while parsing headers"))) (warning "premature eof while parsing headers")
headers)
((string=? ln "") headers) ((string=? ln "") headers)
(else (else
;; Quoting rfc822: ;; Quoting rfc822: