mes: string->number: Support upper case hex.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 21 May 2018 04:51:21 +0000 (06:51 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 21 May 2018 04:51:21 +0000 (06:51 +0200)
* module/mes/scm.mes (string->number): Support upper case hex.

module/mes/scm.mes

index eba58c1674f2a9556e08bdd72517117f84b2338a..8cb23c5eb7ba876aa739754f309853b3037818fa 100644 (file)
                                (<= 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