mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Fix the visibility of a few of internal symbols.

Browse source 
* libguile/gc.h (scm_i_gc): Make internal.
* libguile/posix.h (scm_i_locale_mutex): Likewise.
* libguile/arrays.h (scm_i_tc16_array): Likewise.
* libguile/numbers.c (scm_i_num_less_p): Likewise.
* libguile/discouraged.h (scm_i_init_discouraged): Likewise.
* libguile/continuations.c (scm_i_dummy): Made static.
* libguile/gc.c (scm_i_cell_validation_already_running): Likewise.
* libguile/discouraged.h (scm_i_init_discouraged): Likewise.
This commit is contained in:
Ludovic Courtès 2010-05-28 16:51:57 +02:00
parent ac7b8e8e4c
commit 8c93b597b3
7 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/gc.c
View file

@ -83,12 +83,6 @@ int scm_expensive_debug_cell_accesses_p = 0;
*/
int scm_debug_cells_gc_interval = 0;
/*
Global variable, so you can switch it off at runtime by setting
scm_i_cell_validation_already_running.
*/
int scm_i_cell_validation_already_running ;
/* Hash table that keeps a reference to objects the user wants to protect from
garbage collection. It could arguably be private but applications have come
to rely on it (e.g., Lilypond 2.13.9). */
@ -131,6 +125,9 @@ scm_i_expensive_validation_check (SCM cell)
}
}
/* Whether cell validation is already running. */
static int scm_i_cell_validation_already_running = 0;
void
scm_assert_cell_valid (SCM cell)
{