fixed decoding of %2b

original commit: 11907fb4999aa16023356f0f7eb697290f8acfd0
This commit is contained in:
Matthew Flatt 2004-09-06 19:07:47 +00:00
parent 10034ea4de
commit 932e098f4e

View File

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