summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/continuations.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c
index 054ed8e56..6eeb72320 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -68,7 +68,7 @@ scm_make_cont (answer)
SCM_DEFER_INTS;
SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (regs), s_cont));
SCM_CAR (cont) = scm_tc7_contin;
- SCM_DYNENV (cont) = dynwinds;
+ SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE = SCM_EOL;
SCM_BASE (cont) = SCM_BASE (rootcont);
SCM_SEQ (cont) = SCM_SEQ (rootcont);
@@ -76,19 +76,19 @@ scm_make_cont (answer)
#else
register SCM_STACKITEM *src, *dst;
+#if 0
{
SCM winds;
for (winds = scm_dynwinds; winds != SCM_EOL; winds = SCM_CDR (winds))
{
-#if 0
if (SCM_INUMP (SCM_CAR (winds)))
{
scm_relocate_chunk_to_heap (SCM_CAR (winds));
}
-#endif
}
}
+#endif
SCM_NEWCELL (cont);
*answer = cont;