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/vm-i-system.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'libguile/vm-i-system.c') diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 9280b189d..303ef315d 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -253,7 +253,7 @@ VM_DEFINE_INSTRUCTION (24, variable_ref, "variable-ref", 0, 0, 1) if (!VARIABLE_BOUNDP (x)) { - finish_args = SCM_LIST1 (x); + finish_args = scm_list_1 (x); /* Was: finish_args = SCM_LIST1 (SCM_CAR (x)); */ goto vm_error_unbound; } @@ -298,7 +298,7 @@ VM_DEFINE_INSTRUCTION (25, toplevel_ref, "toplevel-ref", 1, 0, 1) mod = scm_module_public_interface (mod); if (SCM_FALSEP (mod)) { - finish_args = SCM_LIST1 (mod); + finish_args = scm_list_1 (mod); goto vm_error_no_such_module; } /* might longjmp */ @@ -307,7 +307,7 @@ VM_DEFINE_INSTRUCTION (25, toplevel_ref, "toplevel-ref", 1, 0, 1) if (!VARIABLE_BOUNDP (what)) { - finish_args = SCM_LIST1 (what); + finish_args = scm_list_1 (what); goto vm_error_unbound; } @@ -381,7 +381,7 @@ VM_DEFINE_INSTRUCTION (29, toplevel_set, "toplevel-set", 1, 1, 0) mod = scm_module_public_interface (mod); if (SCM_FALSEP (mod)) { - finish_args = SCM_LIST1 (what); + finish_args = scm_list_1 (what); goto vm_error_no_such_module; } /* might longjmp */ -- cgit v1.2.3