mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* numbers.c (scm_number_to_string): Signal an error if radix is

Browse source 
less than two.  (Thanks to Jorgen Schaefer.)
This commit is contained in:
Jim Blandy 1999-09-25 23:11:23 +00:00
parent fac688761c
commit d4a2839e92
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/numbers.c
View file

@ -1820,7 +1820,11 @@ scm_number_to_string (x, radix)
if (SCM_UNBNDP (radix)) if (SCM_UNBNDP (radix))
radix = SCM_MAKINUM (10L); radix = SCM_MAKINUM (10L);
else else
SCM_ASSERT (SCM_INUMP (radix), radix, SCM_ARG2, s_number_to_string); {
SCM_ASSERT (SCM_INUMP (radix), radix, SCM_ARG2, s_number_to_string);
SCM_ASSERT (SCM_INUM (radix) >= 2, radix, SCM_OUTOFRANGE,
s_number_to_string);
}
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
if (SCM_NINUMP (x)) if (SCM_NINUMP (x))
{ {