read: implement basic decimal FIXes

[muddle-interpreter.git] / src / print.c

diff --git a/src/print.c b/src/print.c
index 64a6115360db417b4ac8a9102c67e42175835fa6..539016e13b30e4b4151fbbdb21c723fd80f0720e 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -59,10 +59,10 @@ print_object (const object * o)
   switch (o->type)
     {
     case EVALTYPE_FIX32:
-      printf ("%u", o->fix32.val);
+      printf ("%d", o->fix32.val);
       break;
     case EVALTYPE_FIX64:
-      printf ("%lu", o->fix64.val);
+      printf ("%ld", o->fix64.val);
       break;
     case EVALTYPE_LIST:
       printf ("(");