summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-04-05 20:15:11 +0200
committerLudovic Courtès <ludo@gnu.org>2009-04-05 20:15:11 +0200
commitda8b47478e08976ac4569a3030e43aa520e76b01 (patch)
tree772bf73114d411fc9ffd27e09dfb20c1ea40d1b1 /libguile/vm-i-system.c
parent6ab8238d99f477ee7ac12f1f1a3ec70aab3e68c7 (diff)
downloadguile-da8b47478e08976ac4569a3030e43aa520e76b01.tar.gz
Avoid uses of deprecated forms in the VM code.
Reported by Daniel Kraft <d@domob.eu>. * libguile/frames.c, libguile/vm.c: Include <stdlib.h>, 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 ()'.
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r--libguile/vm-i-system.c8
1 files changed, 4 insertions, 4 deletions
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 */