diff options
author | Kevin Ryde <user42@zip.com.au> | 2006-03-21 00:45:09 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2006-03-21 00:45:09 +0000 |
commit | 2d25ec198134d707af9e51525ef0312df778f2d9 (patch) | |
tree | 8b14d29447bea3459fee2781edd6a5b1be864b0d /libguile/read.c | |
parent | d0a9429acccddb25815e81b061ff5461a3f731ba (diff) | |
download | guile-2d25ec198134d707af9e51525ef0312df778f2d9.tar.gz |
2006-03-21 Ludovic Courtès <ludovic.courtes@laas.fr>
* numbers.c (scm_i_mem2number): Renamed to
scm_c_locale_stringn_to_number.
* numbers.c, print.c, read.c: Updated callers.
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/read.c b/libguile/read.c index fa0fd7133..0714e3f84 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1999,2000,2001,2003, 2004 Free Software +/* Copyright (C) 1995,1996,1997,1999,2000,2001,2003, 2004, 2006 Free Software * Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -506,7 +506,8 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy) * does only consist of octal digits. Finally, it should be * checked whether the resulting fixnum is in the range of * characters. */ - p = scm_i_mem2number (scm_i_string_chars (*tok_buf), j, 8); + p = scm_c_locale_stringn_to_number (scm_i_string_chars (*tok_buf), + j, 8); if (SCM_I_INUMP (p)) return SCM_MAKE_CHAR (SCM_I_INUM (p)); } @@ -644,7 +645,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy) /* Shortcut: Detected symbol '+ or '- */ goto tok; - p = scm_i_mem2number (scm_i_string_chars (*tok_buf), j, 10); + p = scm_c_locale_stringn_to_number (scm_i_string_chars (*tok_buf), j, 10); if (scm_is_true (p)) return p; if (c == '#') |