From 34bc9081f5f95217b2bd544f6601d48b682297c6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Mar 2015 07:03:55 -0700
Subject: * stream.c (vformat): Bugfix: ~X printing in lower case, like ~x,
 when argument is a bignum integer.

---
 stream.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stream.c')

diff --git a/stream.c b/stream.c
index 42711681..136fb3dc 100644
--- a/stream.c
+++ b/stream.c
@@ -1862,7 +1862,7 @@ val vformat(val stream, val fmtstr, va_list vl)
             int nchars = mp_radix_size(mp(obj), 16);
             if (nchars >= convert(int, sizeof (num_buf)))
               pnum = coerce(char *, chk_malloc(nchars + 1));
-            mp_toradix_case(mp(obj), coerce(unsigned char *, pnum), 16, 1);
+            mp_toradix_case(mp(obj), coerce(unsigned char *, pnum), 16, ch == 'x');
           } else {
             const char *fmt = ch == 'x' ? num_fmt->hex : num_fmt->HEX;
             value = c_num(obj);
-- 
cgit v1.2.3