scm_i_tag_name internal to gc.c

[bpt/guile.git] / libguile / gc.c

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 */