mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

scm_i_tag_name internal to gc.c

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

* libguile/private-gc.h: Remove from here.
This commit is contained in:
Andy Wingo 2013-11-28 11:46:13 +01:00
parent 5a706f0342
commit 35164d84e0
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/gc.c
View file

@ -237,6 +237,7 @@ SCM_SYMBOL (sym_times, "gc-times");
/* {Scheme Interface to GC} /* {Scheme Interface to GC}
*/ */
static char const * scm_i_tag_name (scm_t_bits tag);
static SCM static SCM
tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc) 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) scm_i_tag_name (scm_t_bits tag)
{ {
switch (tag & 0x7f) /* 7 bits */ switch (tag & 0x7f) /* 7 bits */

2
libguile/private-gc.h
View file

@ -27,6 +27,4 @@
SCM_INTERNAL int scm_getenv_int (const char *var, int def); 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 #endif