From cdf8f9e6328ff86c1828a16540a607c46f76963a Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Fri, 21 Aug 2009 09:30:53 -0700
Subject: [PATCH] Use uc_tolower in number conversion

* libguile/numbers.c (XDIGIT2UINT): use uc_tolower
---
 libguile/numbers.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index ff963dbfa..58125763f 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -2488,7 +2488,7 @@ enum t_exactness {NO_EXACTNESS, INEXACT, EXACT};
 #define XDIGIT2UINT(d)                                                  \
   (uc_is_property_decimal_digit ((int) (unsigned char) d)               \
    ? (d) - '0'                                                          \
-   : tolower ((int) (unsigned char) d) - 'a' + 10)
+   : uc_tolower ((int) (unsigned char) d) - 'a' + 10)
 
 static SCM
 mem2uinteger (SCM mem, unsigned int *p_idx,