From 7f712e4555b5cc9ea8ad4eb2aa970ab52df3cdf7 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 21 May 2018 06:51:21 +0200 Subject: [PATCH] mes: string->number: Support upper case hex. * module/mes/scm.mes (string->number): Support upper case hex. --- module/mes/scm.mes | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/module/mes/scm.mes b/module/mes/scm.mes index eba58c16..8cb23c5e 100644 --- a/module/mes/scm.mes +++ b/module/mes/scm.mes @@ -246,6 +246,11 @@ (<= i (char->integer #\f))) (let ((d (char->integer #\a))) (loop (cdr lst) (+ (* n radix) (- i (- d 10)))))) + ((and (= radix 16) + (>= i (char->integer #\A)) + (<= i (char->integer #\F))) + (let ((d (char->integer #\A))) + (loop (cdr lst) (+ (* n radix) (- i (- d 10)))))) ((= i (char->integer #\.)) ; minimal FLOAT support (let ((fraction (cdr lst))) (if (null? fraction) n