diff options
author | Andy Wingo <wingo@pobox.com> | 2009-02-05 12:28:19 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-02-05 12:28:19 +0100 |
commit | e06e857c8dc1f9f8c25bc4d3e40ce5bf351753d5 (patch) | |
tree | a284b9ba2bad1c16709a49e3f25058f552df7b79 /libguile/vm-i-scheme.c | |
parent | 4abef68f61f3ff4e674734a4aae18514dd96f221 (diff) | |
download | guile-e06e857c8dc1f9f8c25bc4d3e40ce5bf351753d5.tar.gz |
in debug mode, make sure that calls to the vm can be captured via make-stack
* libguile/vm-engine.c (VM_PUSH_DEBUG_FRAMES): New knob, if true we much
with the scm_i_last_debug_frame when entering the VM, because sometimes
the evaluator doesn't do it for us.
(VM_ENGINE): Plug through debug frame fondling. Now, program exit comes
back to the main text. Rename err_args to finish_args, and reuse for
the return value.
* libguile/vm-engine.h (PUSH_LIST):
* libguile/vm-i-loader.c:
* libguile/vm-i-scheme.c:
* libguile/vm-i-system.c: Update for finish_args.
(halt): goto vm_done, now, instead of returning directly.
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r-- | libguile/vm-i-scheme.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 06d6ca16b..4af60265e 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -136,7 +136,7 @@ VM_DEFINE_FUNCTION (90, cons, "cons", 2) #define VM_VALIDATE_CONS(x) \ if (SCM_UNLIKELY (!scm_is_pair (x))) \ - { err_args = x; \ + { finish_args = x; \ goto vm_error_not_a_pair; \ } |