diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-28 11:46:13 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-28 11:46:13 +0100 |
commit | 35164d84e093ddf9e463fb72cc355c68a4ee92c9 (patch) | |
tree | fd5c24c000d6f975454bcaf011e450450d6925ac /libguile/gc.c | |
parent | 5a706f034224869dfe4002c3f486c47e8a05c76d (diff) | |
download | guile-35164d84e093ddf9e463fb72cc355c68a4ee92c9.tar.gz |
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.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 3 |
1 files changed, 2 insertions, 1 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 */ |