From 27e99882260898a33a475b728970b3023a914851 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 1 Dec 2012 10:12:23 -0500 Subject: [PATCH] fix hex conversion closes PR 13335 --- collects/db/private/mysql/connection.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/db/private/mysql/connection.rkt b/collects/db/private/mysql/connection.rkt index d0c6488d0b..172ef2c887 100644 --- a/collects/db/private/mysql/connection.rkt +++ b/collects/db/private/mysql/connection.rkt @@ -597,9 +597,9 @@ (cond [(<= (char->integer #\0) c (char->integer #\9)) (- c (char->integer #\0))] [(<= (char->integer #\a) c (char->integer #\f)) - (- c (char->integer #\a))] + (+ 10 (- c (char->integer #\a)))] [(<= (char->integer #\A) c (char->integer #\F)) - (- c (char->integer #\A))]))) + (+ 10 (- c (char->integer #\A)))]))) (unless (and (string? s) (even? (string-length s)) (regexp-match? #rx"[0-9a-zA-Z]*" s)) (raise-type-error 'hex-string->bytes