From a2902ecb90d8e15e8e8ac5f4cc376f92f250a8b8 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 29 Sep 2004 17:52:10 +0000 Subject: [PATCH] (change_option_setting): Use scm_car instead of explicit type check plus SCM_CAR. --- libguile/options.c | 6 ++---- 1 file 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; -- 2.20.1