.

original commit: 1c2b0e60f8b5b1bdc0bf5aae43b55af9ab2fe6b4
2003-09-18 19:33:23 +00:00 · 2003-09-18 19:33:23 +00:00 · 2285883d84
commit 2285883d84
parent 02e74a1411
1 changed files with 1 additions and 3 deletions
--- a/collects/net/head-unit.ss
+++ b/collects/net/head-unit.ss
@ -119,9 +119,7 @@
 		  (let ([start (cdaddr m)]
 			[field-name (substring header (caaddr (cdr m)) (cdaddr (cdr m)))])
 		    (let ([m2 (regexp-match-positions 
-			       (format "[~a][~a][^: ~a~a]*:"
-				       #\return #\linefeed
-				       #\return #\linefeed)
+			       #rx"\r\n[^: \r\n\"]*:"
 			       header
 			       start)])
 		      (if m2