mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

Use uc_tolower in number conversion

Browse source 
* libguile/numbers.c (XDIGIT2UINT): use uc_tolower
This commit is contained in:
Michael Gran 2009-08-21 09:30:53 -07:00
parent 3f47e52621
commit cdf8f9e632
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -2488,7 +2488,7 @@ enum t_exactness {NO_EXACTNESS, INEXACT, EXACT};
#define XDIGIT2UINT(d) \ #define XDIGIT2UINT(d) \
(uc_is_property_decimal_digit ((int) (unsigned char) d) \ (uc_is_property_decimal_digit ((int) (unsigned char) d) \
? (d) - '0' \ ? (d) - '0' \
: tolower ((int) (unsigned char) d) - 'a' + 10) : uc_tolower ((int) (unsigned char) d) - 'a' + 10)
static SCM static SCM
mem2uinteger (SCM mem, unsigned int *p_idx, mem2uinteger (SCM mem, unsigned int *p_idx,