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

fix hex conversion

Browse Source 
closes PR 13335
This commit is contained in:
Ryan Culpepper 2012-12-01 10:12:23 -05:00
parent 5470899d6e
commit 27e9988226
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/db/private/mysql/connection.rkt
View File

@ -597,9 +597,9 @@
(cond [(<= (char->integer #\0) c (char->integer #\9)) (cond [(<= (char->integer #\0) c (char->integer #\9))
(- c (char->integer #\0))] (- c (char->integer #\0))]
[(<= (char->integer #\a) c (char->integer #\f)) [(<= (char->integer #\a) c (char->integer #\f))
(- c (char->integer #\a))] (+ 10 (- c (char->integer #\a)))]
[(<= (char->integer #\A) c (char->integer #\F)) [(<= (char->integer #\A) c (char->integer #\F))
(- c (char->integer #\A))]))) (+ 10 (- c (char->integer #\A)))])))
(unless (and (string? s) (even? (string-length s)) (unless (and (string? s) (even? (string-length s))
(regexp-match? #rx"[0-9a-zA-Z]*" s)) (regexp-match? #rx"[0-9a-zA-Z]*" s))
(raise-type-error 'hex-string->bytes (raise-type-error 'hex-string->bytes