diff options
-rw-r--r-- | libguile/options.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/options.c b/libguile/options.c index 96b4b1c25..102e39594 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -187,13 +187,11 @@ change_option_setting (SCM args, scm_t_option options[], unsigned int n, const c break; case SCM_OPTION_INTEGER: args = SCM_CDR (args); - SCM_ASSERT (scm_is_pair (args), args, SCM_ARG1, s); - flags[i] = scm_to_size_t (SCM_CAR (args)); + flags[i] = scm_to_size_t (scm_car (args)); break; case SCM_OPTION_SCM: args = SCM_CDR (args); - SCM_ASSERT (scm_is_pair (args), args, SCM_ARG1, s); - flags[i] = SCM_UNPACK (SCM_CAR (args)); + flags[i] = SCM_UNPACK (scm_car (args)); break; } found = 1; |