summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c14
1 files changed, 13 insertions, 1 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 0ea4b5e20..c3d4935d0 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -853,7 +853,7 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
scm_dynstack_unwind (dynstack, SCM_DYNSTACK_FIRST (dynstack));
scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE);
- scm_dynwind_current_dynamic_state (scm_make_dynamic_state (SCM_UNDEFINED));
+ scm_dynwind_current_dynamic_state (scm_current_dynamic_state ());
my_handler_data.run_handler = 0;
answer = scm_i_with_continuation_barrier (body, body_data,
@@ -928,6 +928,18 @@ scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler)
+SCM
+scm_make_dynamic_state (SCM parent)
+{
+ scm_c_issue_deprecation_warning
+ ("scm_make_dynamic_state is deprecated. Dynamic states are "
+ "now immutable; just use the parent directly.");
+ return SCM_UNBNDP (parent) ? scm_current_dynamic_state () : parent;
+}
+
+
+
+
void
scm_i_init_deprecated ()
{