diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-30 22:14:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-01 21:00:26 +0100 |
commit | 156d6fa1b5f44d9af0c0e5f6ba9275f4b450c19e (patch) | |
tree | 4172f567802ed332849ce4d60b9217c5f42a48b6 | |
parent | 7b8938196584ac8dee38d26ee90e58772c14d752 (diff) | |
download | guile-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.c | 4 |
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); |