Fix of last fix

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 2c258a4..688c1e1 100644 (file)
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -488,11 +488,14 @@ scm_lcm (n1, n2)
 {
   SCM d;
 #ifndef SCM_BIGDIG
-  SCM_GASSERT2 (SCM_INUMP (n1), g_lcm, n1, n2, SCM_ARG1, s_lcm);
+  SCM_GASSERT2 (SCM_INUMP (n1) || SCM_UNBNDP (n1),
+               g_lcm, n1, n2, SCM_ARG1, 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_UNBNDP (n1)
+               || (SCM_NIMP (n1) && SCM_BIGP (n1)),
                g_lcm, n1, n2, SCM_ARG1, s_lcm);
   SCM_GASSERT2 (SCM_INUMP (n2)
                || SCM_UNBNDP (n2)