diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-01-07 20:36:41 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-01-07 20:36:41 +0100 |
| commit | 44390164ce7ad4b28571d30037529833a4b4f985 (patch) | |
| tree | 86795fe357f1952ff11a0c94e2f0d35fe28b6ef9 | |
| parent | c23fb152b708697473603c9b893a7fd7a30b6561 (diff) | |
| download | guile-44390164ce7ad4b28571d30037529833a4b4f985.tar.gz | |
minor cleanup in values.c
* libguile/values.c (scm_c_value_ref): Use scm_from_size_t to assimilate
a size_t.
| -rw-r--r-- | libguile/values.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/values.c b/libguile/values.c index 98a9df1c3..ef27cadd1 100644 --- a/libguile/values.c +++ b/libguile/values.c @@ -97,8 +97,8 @@ scm_c_value_ref (SCM obj, size_t idx) scm_error (scm_out_of_range_key, "scm_c_value_ref", "Too few values in ~S to access index ~S", - scm_list_2 (obj, scm_from_unsigned_integer (idx)), - scm_list_1 (scm_from_unsigned_integer (idx))); + scm_list_2 (obj, scm_from_size_t (idx)), + scm_list_1 (scm_from_size_t (idx))); } SCM_DEFINE (scm_values, "values", 0, 0, 1, |