* continuations.c (scm_make_cont): Enlarged the #if 0 around
authorMikael Djurfeldt <djurfeldt@nada.kth.se>
Tue, 20 Aug 1996 17:08:37 +0000 (17:08 +0000)
committerMikael Djurfeldt <djurfeldt@nada.kth.se>
Tue, 20 Aug 1996 17:08:37 +0000 (17:08 +0000)
scm_relocate_chunk_to_heap.

libguile/continuations.c

index 054ed8e..6eeb723 100644 (file)
@@ -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;