summaryrefslogtreecommitdiff
path: root/liblali.c
diff options
context:
space:
mode:
Diffstat (limited to 'liblali.c')
-rw-r--r--liblali.c4
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; \