andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Bugifx for number->string radix > 10. 

* module/mes/scm.mes (number->string): Bugfix for `10' -> hex/radix > 10.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-23 06:28:37 +02:00
parent 21aff4c7ad
commit bdd160241b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
module/mes/scm.mes
View File

@ -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))