diff options
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 8be37a006..b1f945602 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -292,13 +292,13 @@ scm_internal_lazy_catch (SCM tag, scm_catch_body_t body, void *body_data, scm_ca /* scm_internal_stack_catch Use this one if you want debugging information to be stored in - scm_the_last_stack_fluid on error. */ + scm_the_last_stack_fluid_var on error. */ static SCM ss_handler (void *data, SCM tag, SCM throw_args) { /* Save the stack */ - scm_fluid_set_x (SCM_CDR (scm_the_last_stack_fluid), + scm_fluid_set_x (SCM_VARIABLE_REF (scm_the_last_stack_fluid_var), scm_make_stack (SCM_BOOL_T, SCM_EOL)); /* Throw the error */ return scm_throw (tag, throw_args); |