From da8b47478e08976ac4569a3030e43aa520e76b01 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 5 Apr 2009 20:15:11 +0200 Subject: Avoid uses of deprecated forms in the VM code. Reported by Daniel Kraft . * libguile/frames.c, libguile/vm.c: Include , use `size_t' instead of `scm_sizet'. * libguile/objcodes.c, libguile/programs.c, libguile/vm-engine.c, libguile/vm-i-loader.c, libguile/vm-i-system.c: Use `scm_list_X ()' instead of the deprecated `SCM_LISTX ()'. --- libguile/programs.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'libguile/programs.c') diff --git a/libguile/programs.c b/libguile/programs.c index c97f61e13..8e8982994 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -173,10 +173,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_I_MAKINUM (p->nargs), - SCM_I_MAKINUM (p->nrest), - SCM_I_MAKINUM (p->nlocs), - SCM_I_MAKINUM (p->nexts)); + return scm_list_4 (SCM_I_MAKINUM (p->nargs), + SCM_I_MAKINUM (p->nrest), + SCM_I_MAKINUM (p->nlocs), + SCM_I_MAKINUM (p->nexts)); } #undef FUNC_NAME -- cgit v1.2.3