diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-07 18:11:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-07 18:11:00 +0100 |
commit | 72b82b0f210ef47798133dabf2a81eef3e036ba6 (patch) | |
tree | 3090c892d49c849fdc1c4fce298dfb6000c5123f /libguile/programs.c | |
parent | e15aa022847507c3eeb84c180d20a4209ece1cb6 (diff) | |
download | guile-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.c | 3 |
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 |