summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-05-28 16:51:57 +0200
committerLudovic Courtès <ludo@gnu.org>2010-05-28 17:02:13 +0200
commit8c93b597b33a381c6d334597aae48d23e221a56e (patch)
treeb8d94cbecf98d78780c27bdd7e45f8b241857534 /libguile/gc.c
parentac7b8e8e4c1aeb88fc283eb0cfc79a50cf14177f (diff)
downloadguile-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.c9
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)
{