From 44390164ce7ad4b28571d30037529833a4b4f985 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 7 Jan 2013 20:36:41 +0100 Subject: [PATCH] minor cleanup in values.c * libguile/values.c (scm_c_value_ref): Use scm_from_size_t to assimilate a size_t. --- libguile/values.c | 4 ++-- 1 file 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,