mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-09-20 22:10:38 +00:00
parent b3c8a0f568
commit 73ef98d674
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,4 +1,6 @@
1999-09-20 Mikael Djurfeldt <mdj@thalamus.nada.kth.se> 1999-09-21 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* __scm.h (SCM_WTA_DISPATCH_0, SCM_GASSERT0): New macros.
* numbers.c (scm_max, scm_min, scm_sum, scm_difference, * numbers.c (scm_max, scm_min, scm_sum, scm_difference,
scm_product, scm_divide): Bugfix: Don't pass SCM_UNDEFINED to the scm_product, scm_divide): Bugfix: Don't pass SCM_UNDEFINED to the

12
libguile/numbers.c
View file

@ -3030,9 +3030,9 @@ scm_max (x, y)
#endif #endif
if (SCM_UNBNDP (y)) if (SCM_UNBNDP (y))
{ {
#ifndef SCM_RECKLESS SCM_GASSERT0 (!SCM_UNBNDP (x),
g_max, scm_makfrom0str (s_max), SCM_WNA, 0);
SCM_GASSERT1 (SCM_NUMBERP (x), g_max, x, SCM_ARG1, s_max); SCM_GASSERT1 (SCM_NUMBERP (x), g_max, x, SCM_ARG1, s_max);
#endif
return x; return x;
} }
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
@ -3147,9 +3147,9 @@ scm_min (x, y)
#endif #endif
if (SCM_UNBNDP (y)) if (SCM_UNBNDP (y))
{ {
#ifndef SCM_RECKLESS SCM_GASSERT0 (!SCM_UNBNDP (x),
g_min, scm_makfrom0str (s_min), SCM_WNA, 0);
SCM_GASSERT1 (SCM_NUMBERP (x), g_min, x, SCM_ARG1, s_min); SCM_GASSERT1 (SCM_NUMBERP (x), g_min, x, SCM_ARG1, s_min);
#endif
return x; return x;
} }
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
@ -3462,6 +3462,8 @@ scm_difference (x, y)
{ {
if (SCM_UNBNDP (y)) if (SCM_UNBNDP (y))
{ {
SCM_GASSERT0 (!SCM_UNBNDP (x), g_difference,
scm_makfrom0str (s_difference), SCM_WNA, 0);
badx: badx:
SCM_WTA_DISPATCH_1 (g_difference, x, SCM_ARG1, s_difference); SCM_WTA_DISPATCH_1 (g_difference, x, SCM_ARG1, s_difference);
} }
@ -3918,6 +3920,8 @@ scm_divide (x, y)
{ {
if (SCM_UNBNDP (y)) if (SCM_UNBNDP (y))
{ {
SCM_GASSERT0 (!SCM_UNBNDP (x),
g_divide, scm_makfrom0str (s_divide), SCM_WNA, 0);
badx: badx:
SCM_WTA_DISPATCH_1 (g_divide, x, SCM_ARG1, s_divide); SCM_WTA_DISPATCH_1 (g_divide, x, SCM_ARG1, s_divide);
} }