mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Doc fix.

Browse source
This commit is contained in:
Jim Blandy 1998-01-04 00:09:54 +00:00
parent b971e6c65c
commit e7c5fb3770
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gc.c
View file

@ -1270,7 +1270,10 @@ scm_gc_sweep ()
if (SCM_CAR (scmptr) == (SCM) scm_tc_free_cell) if (SCM_CAR (scmptr) == (SCM) scm_tc_free_cell)
exit (2); exit (2);
#endif #endif
/* Stick the new cell on the front of nfreelist. */ /* Stick the new cell on the front of nfreelist. It's
critical that we mark this cell as freed; otherwise, the
conservative collector might trace it as some other type
of object. */
SCM_SETCAR (scmptr, (SCM) scm_tc_free_cell); SCM_SETCAR (scmptr, (SCM) scm_tc_free_cell);
SCM_SETCDR (scmptr, nfreelist); SCM_SETCDR (scmptr, nfreelist);
nfreelist = scmptr; nfreelist = scmptr;