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

Minor typo in recent new regexp.

Browse Source
This commit is contained in:
Eli Barzilay 2011-12-28 21:06:22 -05:00
parent 064a914fb2
commit 3fcd3c04d5
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/unihead.rkt
View File

@ -7,7 +7,7 @@
(define (encode-for-header s)
(cond [(not (regexp-match? re:non-ascii s)) s]
[(not (regexp-match? #rx"\r\n" s)) (encode-line-for-header s)] ; speed
[(not (regexp-match? #rx"[\r\n]" s)) (encode-line-for-header s)] ; speed
[else (regexp-replace* #rx"[^\r\n]+" s encode-line-for-header)]))
;; Note: the following two encoder wrappers remove newlines from the