From 53f8725e498183fd52c8352a091d3cb0328c3e69 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 8 Oct 2004 21:50:18 +0000 Subject: [PATCH] . original commit: 4b7cac67f8e17f37b3098415fc86e130d4b40264 --- collects/net/uri-codec-unit.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.ss index 323bdb3..8a34785 100644 --- a/collects/net/uri-codec-unit.ss +++ b/collects/net/uri-codec-unit.ss @@ -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