fix bug with number arithmetic

1 files changed, 2 insertions, 2 deletions

diff --git a/liblali.c b/liblali.c
index ab5463a..82c900c 100644
--- a/liblali.c
+++ b/liblali.c
@@ -701,7 +701,7 @@ void writeObject(Object *object, bool readably, FILE *file) {
     case type:                                  \
       fprintf(file, __VA_ARGS__);               \
       break
-    CASE(TYPE_NUMBER, "%s", removeZeroPadding(object->string));
+    CASE(TYPE_NUMBER, "%s", object->string);
     /* CASE(TYPE_NUMBER, (object->number < 0) ? "%g" : "+%g", object->number); */
     CASE(TYPE_SYMBOL, "%s", object->string);
     CASE(TYPE_PRIMITIVE, "#<Primitive %s>", object->name);
@@ -993,7 +993,7 @@ Object *primitiveRandom(Object **args, GC_PARAM) {
         else                                                                          \
           sprintf(resString, fmtpos, result);                                         \
                                                                                       \
-        object = newNumber(resString, GC_ROOTS);                                      \
+        object = newNumber(removeZeroPadding(resString), GC_ROOTS);                   \
       }                                                                               \
                                                                                       \
       return object;                                                                  \