diff options
Diffstat (limited to 'libguile/options.c')
-rw-r--r-- | libguile/options.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/options.c b/libguile/options.c index 64143cb4b..750bd9526 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -177,8 +177,7 @@ scm_options (SCM arg, scm_option options[], int n, const char *s) goto cont; case SCM_OPTION_INTEGER: new_mode = SCM_CDR (new_mode); - SCM_ASSERT (SCM_NIMP (new_mode) - && SCM_CONSP (new_mode) + SCM_ASSERT ( SCM_CONSP (new_mode) && SCM_INUMP (SCM_CAR (new_mode)), new_mode, SCM_ARG1, |