From e74a58f20ec06828ed0ee8fee6385dfe8598e992 Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Sun, 22 Apr 2001 11:16:37 +0000 Subject: [PATCH] *** empty log message *** --- src/programs.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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