From 156d6fa1b5f44d9af0c0e5f6ba9275f4b450c19e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 30 Nov 2009 22:14:52 +0100 Subject: [PATCH] fixes to variable-ref, variable-set vm ops * libguile/vm-i-system.c (variable-ref, variable-set): Fix declared number of pops and pushes. --- libguile/vm-i-system.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index c7704f351..a8fa2d3d3 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -298,7 +298,7 @@ VM_DEFINE_INSTRUCTION (24, long_local_bound, "long-local-bound?", 2, 0, 1) NEXT; } -VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 0, 1) +VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 1, 1) { SCM x = *sp; @@ -393,7 +393,7 @@ VM_DEFINE_INSTRUCTION (30, long_local_set, "long-local-set", 2, 1, 0) NEXT; } -VM_DEFINE_INSTRUCTION (31, variable_set, "variable-set", 0, 1, 0) +VM_DEFINE_INSTRUCTION (31, variable_set, "variable-set", 0, 2, 0) { VARIABLE_SET (sp[0], sp[-1]); DROPN (2);