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

.

Browse Source 
original commit: 2d20748107b752704a44294b0b2b115176ec4e9a
This commit is contained in:
Matthew Flatt 2003-10-16 11:49:01 +00:00
parent 91bd1cc28d
commit 8fae6f71f0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/net/mime-util.ss
View File

@ -105,13 +105,13 @@
(lambda (str) (lambda (str)
(regexp-replace re:right-spaces str ""))) (regexp-replace re:right-spaces str "")))
(define re:comments (regexp "\\(.*\\)")) (define re:comments (regexp "^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))"))
(define trim-comments (define trim-comments
(lambda (str) (lambda (str)
(let* ((positions (regexp-match-positions re:comments str))) (let* ((positions (regexp-match-positions re:comments str)))
(if positions (if positions
(string-append (substring str 0 (caar positions)) (string-append (substring str 0 (caaddr positions))
(substring str (cdar positions) (string-length str))) (substring str (cdaddr positions) (string-length str)))
str)))) str))))
(define lowercase (define lowercase