Avoid uses of deprecated forms in the VM code.

[bpt/guile.git] / libguile / programs.c

diff --git a/libguile/programs.c b/libguile/programs.c
index c97f61e..8e89829 100644 (file)
--- 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