summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-11 23:12:37 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-11 23:12:37 +0000
commit662925356a13462d19d032b6d54e48affc4432cc (patch)
tree4d217d09e459ddad40e86b54a726a51926740575 /src/vm_system.c
parent75b55db5f8e012989565280c28e05e97e285ae4f (diff)
downloadguile-662925356a13462d19d032b6d54e48affc4432cc.tar.gz
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vm_system.c b/src/vm_system.c
index 4e15485e4..945f6b5b0 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -347,6 +347,7 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
NEXT;
}
+ program = x;
goto vm_error_wrong_type_apply;
}
@@ -415,6 +416,7 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
if (SCM_VM_CONT_P (x))
goto vm_call_cc;
+ program = x;
goto vm_error_wrong_type_apply;
}