mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* continuations.c (scm_make_cont): Enlarged the #if 0 around

Browse source 
scm_relocate_chunk_to_heap.
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:08:37 +00:00
parent 074657b024
commit f08df670d0
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/continuations.c
View file

@ -68,7 +68,7 @@ scm_make_cont (answer)
SCM_DEFER_INTS; SCM_DEFER_INTS;
SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (regs), s_cont)); SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (regs), s_cont));
SCM_CAR (cont) = scm_tc7_contin; SCM_CAR (cont) = scm_tc7_contin;
SCM_DYNENV (cont) = dynwinds; SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE = SCM_EOL; SCM_THROW_VALUE = SCM_EOL;
SCM_BASE (cont) = SCM_BASE (rootcont); SCM_BASE (cont) = SCM_BASE (rootcont);
SCM_SEQ (cont) = SCM_SEQ (rootcont); SCM_SEQ (cont) = SCM_SEQ (rootcont);
@ -76,19 +76,19 @@ scm_make_cont (answer)
#else #else
register SCM_STACKITEM *src, *dst; register SCM_STACKITEM *src, *dst;
#if 0
{ {
SCM winds; SCM winds;
for (winds = scm_dynwinds; winds != SCM_EOL; winds = SCM_CDR (winds)) for (winds = scm_dynwinds; winds != SCM_EOL; winds = SCM_CDR (winds))
{ {
#if 0
if (SCM_INUMP (SCM_CAR (winds))) if (SCM_INUMP (SCM_CAR (winds)))
{ {
scm_relocate_chunk_to_heap (SCM_CAR (winds)); scm_relocate_chunk_to_heap (SCM_CAR (winds));
} }
#endif
} }
} }
#endif
SCM_NEWCELL (cont); SCM_NEWCELL (cont);
*answer = cont; *answer = cont;