diff options
-rw-r--r-- | libguile/gc.c | 3 | ||||
-rw-r--r-- | libguile/private-gc.h | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index dc7f5b0b5..3019a7e92 100644 --- 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) -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 4e733851f..18e334162 100644 --- 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 |