From b6c30203f87937861faeda6674911c32d764b2c7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 14 Jan 2016 06:20:40 -0800
Subject: Bugfix: *print-flo-format* used for integer output.

* lib.c (obj_print_impl): Handle NUM and BGNUM separately from
FLNUM, thorugh a hard-coded "~s" format.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 437f8716..34ecbb77 100644
--- a/lib.c
+++ b/lib.c
@@ -8526,6 +8526,8 @@ finish:
     break;
   case NUM:
   case BGNUM:
+    format(out, lit("~s"), obj, nao);
+    break;
   case FLNUM:
     {
       val fmt = cdr(lookup_var(nil, print_flo_format_s));
-- 
cgit v1.2.3