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

.

Browse Source 
original commit: 075feaca75add12feaada944cf2b23e2c58de02d
This commit is contained in:
Matthew Flatt 2003-07-25 16:33:46 +00:00
parent 15ad8885a7
commit 778bf7c09f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -498,7 +498,8 @@
(define (decode-some-url-parts url)
(let ([uri-decode/maybe
(lambda (f)
(and f (uri-decode f)))])
;; If #f, and leave unmolested any % that in't followed by hex digit
(and f (uri-decode (regexp-replace* "%([^0-9a-fA-F])" f "%25\\1"))))])
(make-url/user (uri-decode/maybe (url-scheme url))
(uri-decode/maybe (url-host url))
(uri-decode/maybe (url-port url))