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

*** empty log message ***

Browse source
This commit is contained in:
Rob Browning 2003-04-04 19:16:04 +00:00
parent ed1403c6b5
commit 45a1c3e89f
2 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc-mark.c
View file

@ -152,12 +152,10 @@ void
scm_gc_mark (SCM ptr) scm_gc_mark (SCM ptr)
{ {
if (SCM_IMP (ptr)) if (SCM_IMP (ptr))
return ; return;
if (SCM_GC_MARK_P (ptr)) if (SCM_GC_MARK_P (ptr))
{
return; return;
}
SCM_SET_GC_MARK (ptr); SCM_SET_GC_MARK (ptr);
scm_gc_mark_dependencies (ptr); scm_gc_mark_dependencies (ptr);

2
libguile/gc.h
View file

@ -221,8 +221,6 @@ typedef unsigned long scm_t_c_bvec_long;
#define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x) #define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x)
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t) #define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t)
/* Freelists consist of linked cells where the type entry holds the value /* Freelists consist of linked cells where the type entry holds the value
* scm_tc_free_cell and the second entry holds a pointer to the next cell of * scm_tc_free_cell and the second entry holds a pointer to the next cell of
* the freelist. Due to this structure, freelist cells are not cons cells * the freelist. Due to this structure, freelist cells are not cons cells