diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-11 23:12:37 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-11 23:12:37 +0000 |
commit | 662925356a13462d19d032b6d54e48affc4432cc (patch) | |
tree | 4d217d09e459ddad40e86b54a726a51926740575 /src/vm_system.c | |
parent | 75b55db5f8e012989565280c28e05e97e285ae4f (diff) | |
download | guile-662925356a13462d19d032b6d54e48affc4432cc.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 2 |
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; } |