summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/programs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/programs.c b/src/programs.c
index 797cebeea..44bbed1b6 100644
--- a/src/programs.c
+++ b/src/programs.c
@@ -134,7 +134,7 @@ SCM_DEFINE (scm_program_base, "program-base", 1, 0, 0,
{
SCM_VALIDATE_PROGRAM (1, program);
- return scm_long2num ((long) SCM_PROGRAM_DATA (program)->base);
+ return scm_ulong2num ((unsigned long) SCM_PROGRAM_DATA (program)->base);
}
#undef FUNC_NAME