brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Nicely formatted email body.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 09:03:40 +02:00
parent ac967be970
commit f2389c963d
3 changed files with 29 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/util-format.scm
View file

@ -41,7 +41,8 @@
(let* ((str (number->string amt))
(flds (string-split str "."))
(integer? (null? (cdr flds))))
(if integer?
(if (or integer?
(string=? (cadr flds) "0"))
(format "~A.--" (car flds))
(format "~A.~A"
(car flds)