From bdd160241b4375624c61722f5b3e80d774079000 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 23 May 2017 06:28:37 +0200 Subject: [PATCH] mes: Bugifx for number->string radix > 10. * module/mes/scm.mes (number->string): Bugfix for `10' -> hex/radix > 10. --- module/mes/scm.mes | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mes/scm.mes b/module/mes/scm.mes index 50ed221f..cc8c4dce 100644 --- a/module/mes/scm.mes +++ b/module/mes/scm.mes @@ -252,7 +252,7 @@ (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))