mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 18:40:22 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-22 11:16:37 +00:00
parent ac99cb0cb1
commit e74a58f20e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/programs.c
View file

@ -134,7 +134,7 @@ SCM_DEFINE (scm_program_base, "program-base", 1, 0, 0,
{ {
SCM_VALIDATE_PROGRAM (1, program); 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 #undef FUNC_NAME