diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
commit | ac99cb0cb153b1691b48115f098a0008b78f9702 (patch) | |
tree | 61097ad9a9ceff1f371dd927a02430bc81ea079b /src/vm_system.c | |
parent | ac02b386c2e5743b6ea96486af6ba2cc6583c12a (diff) | |
download | guile-ac99cb0cb153b1691b48115f098a0008b78f9702.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 8 |
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); |