summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-11-30 22:14:52 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-01 21:00:26 +0100
commit156d6fa1b5f44d9af0c0e5f6ba9275f4b450c19e (patch)
tree4172f567802ed332849ce4d60b9217c5f42a48b6
parent7b8938196584ac8dee38d26ee90e58772c14d752 (diff)
downloadguile-156d6fa1b5f44d9af0c0e5f6ba9275f4b450c19e.tar.gz
fixes to variable-ref, variable-set vm ops
* libguile/vm-i-system.c (variable-ref, variable-set): Fix declared number of pops and pushes.
-rw-r--r--libguile/vm-i-system.c4
1 files 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);