summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-07 18:11:00 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-07 18:11:00 +0100
commit72b82b0f210ef47798133dabf2a81eef3e036ba6 (patch)
tree3090c892d49c849fdc1c4fce298dfb6000c5123f /libguile/programs.c
parente15aa022847507c3eeb84c180d20a4209ece1cb6 (diff)
downloadguile-72b82b0f210ef47798133dabf2a81eef3e036ba6.tar.gz
scm_from_uintptr_t / scm_from_ptrdiff_t usage
* libguile/frames.c: * libguile/programs.c: Use scm_from_ptrdiff_t and scm_from_uintptr_t where appropriate.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 5452112e8..77b6417c7 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -106,8 +106,7 @@ SCM_DEFINE (scm_rtl_program_code, "rtl-program-code", 1, 0, 0,
{
SCM_VALIDATE_RTL_PROGRAM (1, program);
- /* FIXME: we need scm_from_uintptr (). */
- return scm_from_size_t ((size_t) SCM_RTL_PROGRAM_CODE (program));
+ return scm_from_uintptr_t ((scm_t_uintptr) SCM_RTL_PROGRAM_CODE (program));
}
#undef FUNC_NAME