summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-22 02:13:48 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-22 02:13:48 +0000
commitac99cb0cb153b1691b48115f098a0008b78f9702 (patch)
tree61097ad9a9ceff1f371dd927a02430bc81ea079b /src/vm_system.c
parentac02b386c2e5743b6ea96486af6ba2cc6583c12a (diff)
downloadguile-ac99cb0cb153b1691b48115f098a0008b78f9702.tar.gz
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vm_system.c b/src/vm_system.c
index 12aa02f72..e6336b435 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -187,8 +187,8 @@ VM_DEFINE_INSTRUCTION (list_break, "list-break", 0, 0, 0)
#define OBJECT_REF(i) objects[i]
#define OBJECT_SET(i,o) objects[i] = o
-#define LOCAL_REF(i) SCM_VM_FRAME_VARIABLE (fp, i)
-#define LOCAL_SET(i,o) SCM_VM_FRAME_VARIABLE (fp, i) = o
+#define LOCAL_REF(i) SCM_STACK_FRAME_VARIABLE (fp, i)
+#define LOCAL_SET(i,o) SCM_STACK_FRAME_VARIABLE (fp, i) = o
#define VARIABLE_REF(v) SCM_CDR (v)
#define VARIABLE_SET(v,o) SCM_SETCDR (v, o)
@@ -379,7 +379,7 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
EXIT_HOOK ();
reinstate_vm_cont (vp, x);
CACHE_REGISTER ();
- program = SCM_VM_FRAME_PROGRAM (fp);
+ program = SCM_STACK_FRAME_PROGRAM (fp);
CACHE_PROGRAM ();
NEXT;
}
@@ -496,7 +496,7 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
FREE_FRAME ();
/* Restore the last program */
- program = SCM_VM_FRAME_PROGRAM (fp);
+ program = SCM_STACK_FRAME_PROGRAM (fp);
CACHE_PROGRAM ();
external = fp[bp->nargs + bp->nlocs];
PUSH (ret);