diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
commit | ac99cb0cb153b1691b48115f098a0008b78f9702 (patch) | |
tree | 61097ad9a9ceff1f371dd927a02430bc81ea079b /src/vm_engine.c | |
parent | ac02b386c2e5743b6ea96486af6ba2cc6583c12a (diff) | |
download | guile-ac99cb0cb153b1691b48115f098a0008b78f9702.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_engine.c')
-rw-r--r-- | src/vm_engine.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/vm_engine.c b/src/vm_engine.c index 30b8a5873..7cc93acca 100644 --- a/src/vm_engine.c +++ b/src/vm_engine.c @@ -88,7 +88,7 @@ vm_run (SCM vm, SCM program, SCM args) /* Boot program */ scm_byte_t bytes[3] = {scm_op_call, 0, scm_op_halt}; - bytes[1] = scm_ilength (args); + bytes[1] = scm_ilength (args); /* FIXME: argument overflow */ program = scm_c_make_program (bytes, 3, SCM_BOOL_T); /* Initial frame */ @@ -167,10 +167,8 @@ vm_run (SCM vm, SCM program, SCM args) vm_error: SYNC_ALL (); - scm_ithrow (sym_vm_error, - SCM_LIST4 (sym_vm_run, err_msg, err_args, - scm_vm_current_frame (vm)), - 1); + vp->last_frame = scm_vm_current_frame (vm); + scm_ithrow (sym_vm_error, SCM_LIST3 (sym_vm_run, err_msg, err_args), 1); } abort (); /* never reached */ |