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

.

Browse Source 
original commit: 4b7cac67f8e17f37b3098415fc86e130d4b40264
This commit is contained in:
Robby Findler 2004-10-08 21:50:18 +00:00
parent 6e29ebae83
commit 53f8725e49
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/net/uri-codec-unit.ss
View File

@ -174,11 +174,12 @@
(match-lambda
[() (list)]
[(#\% char1 char2 . rest)
(cons
;; This used to consult the table again, but I think that's
;; wrong. For exmaple %2b should produce +, not a space.
(string->number (string char1 char2) 16)
(internal-decode rest))]
;; This used to consult the table again, but I think that's
;; wrong. For exmaple %2b should produce +, not a space.
(let ([num (string->number (string char1 char2) 16)])
(if num
(cons num (internal-decode rest))
(internal-decode rest)))]
[(char . rest)
(cons
(vector-ref table