scm_i_tag_name internal to gc.c

* libguile/gc.c (scm_i_tag_name): Make internal to gc.c.

* libguile/private-gc.h: Remove from here.

diff --git a/libguile/gc.c b/libguile/gc.c
index dc7f5b0..3019a7e 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -237,6 +237,7 @@ SCM_SYMBOL (sym_times, "gc-times");
 
 /* {Scheme Interface to GC}
  */
+static char const * scm_i_tag_name (scm_t_bits tag);
 static SCM
 tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc)
 {
@@ -906,7 +907,7 @@ scm_gc_register_allocation (size_t size)
 
 \f
 
-char const *
+static char const *
 scm_i_tag_name (scm_t_bits tag)
 {
   switch (tag & 0x7f) /* 7 bits */

diff --git a/libguile/private-gc.h b/libguile/private-gc.h
index 4e73385..18e3341 100644 (file)
--- a/libguile/private-gc.h
+++ b/libguile/private-gc.h
@@ -27,6 +27,4 @@
 
 SCM_INTERNAL int scm_getenv_int (const char *var, int def);
 
-SCM_INTERNAL char const *scm_i_tag_name (scm_t_bits tag); /* MOVEME */
-
 #endif