summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:08:37 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:08:37 +0000
commitf08df670d0882d6a9fc133510c8aa510c6c9de88 (patch)
treeae4e76aa3290995ceeab7912eb123a83e308539d
parent074657b024c8d95a3a8773969aaa78ba16c09298 (diff)
downloadguile-f08df670d0882d6a9fc133510c8aa510c6c9de88.tar.gz
* continuations.c (scm_make_cont): Enlarged the #if 0 around
scm_relocate_chunk_to_heap.
-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;