From 02a3305a85a28403351566d71af5abcb3396d23f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 29 Aug 1999 18:15:09 +0000 Subject: [PATCH] * numbers.c (scm_lcm): Bugfix: BIGDIG --> SCM_BIGDIG; Account for the case when second argument is unbound. --- libguile/numbers.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 3219d7821..2c258a49e 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -487,13 +487,16 @@ scm_lcm (n1, n2) SCM n2; { SCM d; -#ifndef BIGDIG +#ifndef SCM_BIGDIG SCM_GASSERT2 (SCM_INUMP (n1), g_lcm, n1, n2, SCM_ARG1, s_lcm); - SCM_GASSERT2 (SCM_INUMP (n2), g_lcm, n1, n2, SCM_ARGn, s_lcm); + SCM_GASSERT2 (SCM_INUMP (n2) || SCM_UNBNDP (n2), + g_lcm, n1, n2, SCM_ARGn, s_lcm); #else - SCM_GASSERT2 (SCM_INUMP (n1) || SCM_NIMP (n1) && SCM_BIGP (n1), + SCM_GASSERT2 (SCM_INUMP (n1) || (SCM_NIMP (n1) && SCM_BIGP (n1)), g_lcm, n1, n2, SCM_ARG1, s_lcm); - SCM_GASSERT2 (SCM_INUMP (n2) || SCM_NIMP (n2) && SCM_BIGP (n2), + SCM_GASSERT2 (SCM_INUMP (n2) + || SCM_UNBNDP (n2) + || (SCM_NIMP (n2) && SCM_BIGP (n2)), g_lcm, n1, n2, SCM_ARGn, s_lcm); #endif if (SCM_UNBNDP (n2))