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

.

Browse Source 
original commit: 6d801ae2bc7f78fe0bd72f31645ed740af9d3112
This commit is contained in:
Matthew Flatt 2003-02-13 23:39:26 +00:00
parent c7461e6555
commit 8828d22d25
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -623,7 +623,7 @@
;; no intervening white space, by any token>
(define x-token
(lambda (value)
(let* ((r (regexp "^[xX]-(.*)"))
(let* ((r #rx"^[xX]-(.*)")
(h (trim-spaces value))
(ans (regexp-match r h)))
(and ans
@ -643,7 +643,7 @@
;; as specified in RFC 2048.>
(define iana-token
(lambda (value)
(let ((ans (assoc (trim-spaces value) iana-extensions)))
(let ((ans (assoc (lowercase (trim-spaces value)) iana-extensions)))
(and ans
(cdr ans)))))