diff options
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 |