diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-25 01:55:45 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-25 01:55:45 +0000 |
commit | 46f215f85b2110b89c9732674ba856d9de705ca2 (patch) | |
tree | ee77e92d6d34e99dceae198ade69cd74576b4881 /src/vm_system.c | |
parent | a6df585ae7e0a0edeb674f85ba2ab572bf02fb17 (diff) | |
download | guile-46f215f85b2110b89c9732674ba856d9de705ca2.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 13 |
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; } |