mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 15:10:27 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-16 04:26:12 +00:00
parent 12e5fb3bb8
commit a8cffa9f69
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc.c
View file

@ -330,6 +330,7 @@ SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
#ifdef GUILE_NEW_GC_SCHEME
static int static int
free_list_length (char *title, int i, SCM freelist) free_list_length (char *title, int i, SCM freelist)
{ {
@ -370,13 +371,12 @@ SCM_DEFINE (scm_free_list_length, "free-list-length", 0, 0, 0,
"`free-list-length' is only included in --enable-guile-debug builds of Guile.") "`free-list-length' is only included in --enable-guile-debug builds of Guile.")
#define FUNC_NAME s_scm_free_list_length #define FUNC_NAME s_scm_free_list_length
{ {
#ifdef GUILE_NEW_GC_SCHEME
free_list_lengths ("1-words", &scm_master_freelist, scm_freelist); free_list_lengths ("1-words", &scm_master_freelist, scm_freelist);
free_list_lengths ("2-words", &scm_master_freelist2, scm_freelist2); free_list_lengths ("2-words", &scm_master_freelist2, scm_freelist2);
#endif
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
#undef FUNC_NAME #undef FUNC_NAME
#endif
#endif #endif