summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-02-05 12:28:19 +0100
committerAndy Wingo <wingo@pobox.com>2009-02-05 12:28:19 +0100
commite06e857c8dc1f9f8c25bc4d3e40ce5bf351753d5 (patch)
treea284b9ba2bad1c16709a49e3f25058f552df7b79 /libguile/vm-engine.h
parent4abef68f61f3ff4e674734a4aae18514dd96f221 (diff)
downloadguile-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-engine.h')
-rw-r--r--libguile/vm-engine.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h
index 8fc3c136d..0cdd8639d 100644
--- a/libguile/vm-engine.h
+++ b/libguile/vm-engine.h
@@ -294,7 +294,7 @@ do \
for (; scm_is_pair (l); l = SCM_CDR (l)) \
PUSH (SCM_CAR (l)); \
if (SCM_UNLIKELY (!NILP (l))) { \
- err_args = scm_list_1 (l); \
+ finish_args = scm_list_1 (l); \
goto vm_error_improper_list; \
} \
} while (0)