diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-02-14 20:39:31 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-02-14 20:39:31 +0100 |
| commit | 7017846b2b34e4ec3fd402c6c02ff40e90d256b5 (patch) | |
| tree | 708a0ce18572c03320fea2fe9eeb3cd55729bdbe /libguile/values.c | |
| parent | 4fb8bc64a0c5d074ab6658b763dfe24449f3d3b4 (diff) | |
| download | guile-7017846b2b34e4ec3fd402c6c02ff40e90d256b5.tar.gz | |
tweak to internal scm_i_extract_values_2
* libguile/values.c (scm_i_extract_values_2): Make nvalues check more
robust.
Diffstat (limited to 'libguile/values.c')
| -rw-r--r-- | libguile/values.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/values.c b/libguile/values.c index 7dd9ecc9d..ab7773141 100644 --- a/libguile/values.c +++ b/libguile/values.c @@ -45,7 +45,7 @@ scm_i_extract_values_2 (SCM obj, SCM *p1, SCM *p2) SCM_ASSERT_TYPE (SCM_VALUESP (obj), obj, SCM_ARG1, "scm_i_extract_values_2", "values"); values = scm_struct_ref (obj, SCM_INUM0); - if (!scm_is_null_or_nil (SCM_CDDR (values))) + if (scm_ilength (values) != 2) scm_wrong_type_arg_msg ("scm_i_extract_values_2", SCM_ARG1, obj, "a values object containing exactly two values"); |