diff options
Diffstat (limited to 'src/programs.c')
-rw-r--r-- | src/programs.c | 8 |
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 |