diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:08:37 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:08:37 +0000 |
commit | f08df670d0882d6a9fc133510c8aa510c6c9de88 (patch) | |
tree | ae4e76aa3290995ceeab7912eb123a83e308539d | |
parent | 074657b024c8d95a3a8773969aaa78ba16c09298 (diff) | |
download | guile-f08df670d0882d6a9fc133510c8aa510c6c9de88.tar.gz |
* continuations.c (scm_make_cont): Enlarged the #if 0 around
scm_relocate_chunk_to_heap.
-rw-r--r-- | libguile/continuations.c | 6 |
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; |