summaryrefslogtreecommitdiff
path: root/src/vm_engine.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-22 02:13:48 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-22 02:13:48 +0000
commitac99cb0cb153b1691b48115f098a0008b78f9702 (patch)
tree61097ad9a9ceff1f371dd927a02430bc81ea079b /src/vm_engine.c
parentac02b386c2e5743b6ea96486af6ba2cc6583c12a (diff)
downloadguile-ac99cb0cb153b1691b48115f098a0008b78f9702.tar.gz
*** empty log message ***
Diffstat (limited to 'src/vm_engine.c')
-rw-r--r--src/vm_engine.c8
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 */