diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-29 17:52:10 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-29 17:52:10 +0000 |
commit | a2902ecb90d8e15e8e8ac5f4cc376f92f250a8b8 (patch) | |
tree | 45b278b1dad6812ebe034691787a4f4703a7a797 | |
parent | 22e47f69ae4da020c3dcefcc346b63076b2d23a3 (diff) | |
download | guile-a2902ecb90d8e15e8e8ac5f4cc376f92f250a8b8.tar.gz |
(change_option_setting): Use scm_car instead of explicit type check
plus SCM_CAR.
-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; |