From 5336cd259a9369a026c5f87ec2a8728576657b6d Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Mon, 23 Jun 2025 18:46:39 +0100
Subject: fix bug with number arithmetic

---
 liblali.c | 4 ++--
 1 file 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;                                                                  \
-- 
cgit