summaryrefslogtreecommitdiff
path: root/libguile/frames.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/frames.c')
-rw-r--r--libguile/frames.c11
1 files changed, 6 insertions, 5 deletions
diff --git a/libguile/frames.c b/libguile/frames.c
index fa1c54f59..baa62a744 100644
--- a/libguile/frames.c
+++ b/libguile/frames.c
@@ -108,7 +108,7 @@ SCM_DEFINE (scm_vm_frame_arguments, "vm-frame-arguments", 1, 0, 0,
{
SCM *fp;
int i;
- struct scm_program *bp;
+ struct scm_objcode *bp;
SCM ret;
SCM_VALIDATE_VM_FRAME (1, frame);
@@ -136,14 +136,15 @@ SCM_DEFINE (scm_vm_frame_source, "vm-frame-source", 1, 0, 0,
#define FUNC_NAME s_scm_vm_frame_source
{
SCM *fp;
- struct scm_program *bp;
+ struct scm_objcode *bp;
SCM_VALIDATE_VM_FRAME (1, frame);
fp = SCM_VM_FRAME_FP (frame);
bp = SCM_PROGRAM_DATA (SCM_FRAME_PROGRAM (fp));
- return scm_c_program_source (bp, SCM_VM_FRAME_IP (frame) - bp->base);
+ return scm_c_program_source (SCM_FRAME_PROGRAM (fp),
+ SCM_VM_FRAME_IP (frame) - bp->base);
}
#undef FUNC_NAME
@@ -154,7 +155,7 @@ SCM_DEFINE (scm_vm_frame_local_ref, "vm-frame-local-ref", 2, 0, 0,
{
SCM *fp;
unsigned int i;
- struct scm_program *bp;
+ struct scm_objcode *bp;
SCM_VALIDATE_VM_FRAME (1, frame);
@@ -175,7 +176,7 @@ SCM_DEFINE (scm_vm_frame_local_set_x, "vm-frame-local-set!", 3, 0, 0,
{
SCM *fp;
unsigned int i;
- struct scm_program *bp;
+ struct scm_objcode *bp;
SCM_VALIDATE_VM_FRAME (1, frame);