mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

tweak to internal scm_i_extract_values_2

Browse source 
* libguile/values.c (scm_i_extract_values_2): Make nvalues check more
  robust.
This commit is contained in:
Andy Wingo 2011-02-14 20:39:31 +01:00
parent 4fb8bc64a0
commit 7017846b2b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/values.c
View file

@ -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_ASSERT_TYPE (SCM_VALUESP (obj), obj, SCM_ARG1,
"scm_i_extract_values_2", "values"); "scm_i_extract_values_2", "values");
values = scm_struct_ref (obj, SCM_INUM0); 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_wrong_type_arg_msg
("scm_i_extract_values_2", SCM_ARG1, obj, ("scm_i_extract_values_2", SCM_ARG1, obj,
"a values object containing exactly two values"); "a values object containing exactly two values");