diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-05-28 16:51:57 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-05-28 17:02:13 +0200 |
commit | 8c93b597b33a381c6d334597aae48d23e221a56e (patch) | |
tree | b8d94cbecf98d78780c27bdd7e45f8b241857534 /libguile/gc.c | |
parent | ac7b8e8e4c1aeb88fc283eb0cfc79a50cf14177f (diff) | |
download | guile-8c93b597b33a381c6d334597aae48d23e221a56e.tar.gz |
Fix the visibility of a few of internal symbols.
* 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.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index fc405f307..1e8d7ddca 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -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) { |