mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

minor cleanup in values.c

Browse source 
* libguile/values.c (scm_c_value_ref): Use scm_from_size_t to assimilate
  a size_t.
This commit is contained in:
Andy Wingo 2013-01-07 20:36:41 +01:00
parent c23fb152b7
commit 44390164ce
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/values.c
View file

@ -97,8 +97,8 @@ scm_c_value_ref (SCM obj, size_t idx)
scm_error (scm_out_of_range_key, scm_error (scm_out_of_range_key,
"scm_c_value_ref", "scm_c_value_ref",
"Too few values in ~S to access index ~S", "Too few values in ~S to access index ~S",
scm_list_2 (obj, scm_from_unsigned_integer (idx)), scm_list_2 (obj, scm_from_size_t (idx)),
scm_list_1 (scm_from_unsigned_integer (idx))); scm_list_1 (scm_from_size_t (idx)));
} }
SCM_DEFINE (scm_values, "values", 0, 0, 1, SCM_DEFINE (scm_values, "values", 0, 0, 1,