original commit: 8750db0ba565bca8b48eeb8e6fcbf2df9c622fc3
This commit is contained in:
Matthew Flatt 2004-09-10 00:21:13 +00:00
parent 0afc4a0462
commit b33811fcc7

View File

@ -142,7 +142,7 @@
(decoding-table (make-vector 256 0)))
(for (i 0 256)
(vector-set! encoding-table i (number->hex-string i))
(vector-set! decoding-table i (integer->char i)))
(vector-set! decoding-table i i))
(for-each (match-lambda
[(orig . enc)
(vector-set! encoding-table