summaryrefslogtreecommitdiff
path: root/src/programs.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/programs.c')
-rw-r--r--src/programs.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/programs.c b/src/programs.c
index 111f87f66..d45cd96dd 100644
--- a/src/programs.c
+++ b/src/programs.c
@@ -149,10 +149,10 @@ SCM_DEFINE (scm_program_arity, "program-arity", 1, 0, 0,
SCM_VALIDATE_PROGRAM (1, program);
p = SCM_PROGRAM_DATA (program);
- return SCM_LIST4 (SCM_MAKINUM (p->nargs),
- SCM_MAKINUM (p->nrest),
- SCM_MAKINUM (p->nlocs),
- SCM_MAKINUM (p->nexts));
+ return SCM_LIST4 (scm_from_uchar (p->nargs),
+ scm_from_uchar (p->nrest),
+ scm_from_uchar (p->nlocs),
+ scm_from_uchar (p->nexts));
}
#undef FUNC_NAME