mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

2006-03-21 Ludovic Courtès <ludovic.courtes@laas.fr>

Browse source 
* numbers.c (scm_i_mem2number): Renamed to
	scm_c_locale_stringn_to_number.
	* numbers.c, print.c, read.c: Updated callers.
This commit is contained in:
Kevin Ryde 2006-03-21 00:45:09 +00:00
parent d0a9429acc
commit 2d25ec1981
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/numbers.c
View file

@ -2937,7 +2937,8 @@ mem2complex (const char* mem, size_t len, unsigned int idx,
enum t_radix {NO_RADIX=0, DUAL=2, OCT=8, DEC=10, HEX=16};
SCM
scm_i_mem2number (const char* mem, size_t len, unsigned int default_radix)
scm_c_locale_stringn_to_number (const char* mem, size_t len,
unsigned int default_radix)
{
unsigned int idx = 0;
unsigned int radix = NO_RADIX;
@ -3043,9 +3044,9 @@ SCM_DEFINE (scm_string_to_number, "string->number", 1, 1, 0,
else
base = scm_to_unsigned_integer (radix, 2, INT_MAX);
answer = scm_i_mem2number (scm_i_string_chars (string),
scm_i_string_length (string),
base);
answer = scm_c_locale_stringn_to_number (scm_i_string_chars (string),
scm_i_string_length (string),
base);
scm_remember_upto_here_1 (string);
return answer;
}