tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

commit 27b3108e0703eb3ecf9f89bde636e509048502f7
parent 6ff4c2c0398e451e68875fd71705a07f351bb289
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sun, 28 Oct 2018 23:55:42 -0700

Print maximum of 1 decimal point

Diffstat:
tisp.c | 2+-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tisp.c b/tisp.c @@ -568,7 +568,7 @@ tisp_print(Val v) printf("%d", v->v.i); break; case DOUBLE: - printf("%f", v->v.d); + printf("%.1f", v->v.d); break; case RATIONAL: printf("%d/%d", v->v.r.num, v->v.r.den);