mes: Bugifx for number->string radix > 10.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 23 May 2017 04:28:37 +0000 (06:28 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 23 May 2017 04:28:37 +0000 (06:28 +0200)
* module/mes/scm.mes (number->string): Bugfix for `10' -> hex/radix > 10.

module/mes/scm.mes

index 50ed221faa299a7c2764b43c4da12fb53e4376e3..cc8c4dce9132650c68174cb3c5426e3698480c03 100644 (file)
          (sign (if (< n 0) '(#\-) '())))
     (let loop ((n (abs n)) (lst '()))
       (let* ((i (remainder n radix))
          (sign (if (< n 0) '(#\-) '())))
     (let loop ((n (abs n)) (lst '()))
       (let* ((i (remainder n radix))
-             (lst (cons (integer->char (+ i (if (<= i 10) (char->integer #\0)
+             (lst (cons (integer->char (+ i (if (< i 10) (char->integer #\0)
                                                 (- (char->integer #\a) 10)))) lst))
              (n (quotient n radix)))
         (if (= 0 n) (list->string (append sign lst))
                                                 (- (char->integer #\a) 10)))) lst))
              (n (quotient n radix)))
         (if (= 0 n) (list->string (append sign lst))