summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-25 01:55:45 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-25 01:55:45 +0000
commit46f215f85b2110b89c9732674ba856d9de705ca2 (patch)
treeee77e92d6d34e99dceae198ade69cd74576b4881 /src/vm_system.c
parenta6df585ae7e0a0edeb674f85ba2ab572bf02fb17 (diff)
downloadguile-46f215f85b2110b89c9732674ba856d9de705ca2.tar.gz
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c13
1 files changed, 0 insertions, 13 deletions
diff --git a/src/vm_system.c b/src/vm_system.c
index 997f62384..70df6fa64 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -421,18 +421,8 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
*/
if (SCM_PROGRAM_P (x))
{
- SCM *limit = sp;
- SCM *base = sp - nargs - 1;
-
- /* Exit the current frame */
EXIT_HOOK ();
FREE_FRAME ();
-
- /* Move arguments */
- while (base < limit)
- *++sp = *++base;
-
- /* Call the program */
program = x;
goto vm_call_program;
}
@@ -489,18 +479,15 @@ VM_DEFINE_INSTRUCTION (call_cc, "call/cc", 1, 1, 1)
VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
{
- SCM ret;
vm_return:
EXIT_HOOK ();
RETURN_HOOK ();
- POP (ret);
FREE_FRAME ();
/* Restore the last program */
program = SCM_FRAME_PROGRAM (fp);
CACHE_PROGRAM ();
CACHE_EXTERNAL ();
- PUSH (ret);
NEXT;
}