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

.

Browse Source 
original commit: 4957335f442567e28eb7397a449e3c3f8c8acbbd
This commit is contained in:
Matthew Flatt 2003-12-11 04:07:37 +00:00
parent efa9f5ea4e
commit 8b4bc1c7fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/net/url-unit.ss
View File

@ -403,7 +403,7 @@
;; purify-port : in-port -> header-string
(define purify-port
(lambda (port)
(let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n)|\n|\r)((\r\n)|\n|\r)" port)])
(let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n\r\n)|(\n\n)|(\r\r))" port)])
(if m
(read-string (cdar m) port)
""))))