number->string: remove trailing 0s

picrin-scheme · May 11, 2015 · a8520fe · a8520fe
1 parent e3d2330
commit a8520fe
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/extlib/benz/number.c b/extlib/benz/number.c
@@ -549,7 +549,12 @@ pic_number_number_to_string(pic_state *pic)
 
     buf = pic_malloc(pic, s);
 
+
     snprintf(buf, s, "%f", f);
+
+    while(buf[s - 2] == '0')
+      s -= 1;
+
   }
   str = pic_make_str(pic, buf, s - 1);