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.

1 files changed, 2 insertions, 0 deletions

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));