mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Add `scm_c_symbol_length ()'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-07-05 20:10:44 +02:00
parent 3f324bb3b8
commit 47463c8fd7
6 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/strings.c
View file

@ -452,6 +452,16 @@ scm_i_symbol_length (SCM sym)
return STRINGBUF_LENGTH (SYMBOL_STRINGBUF (sym));
}
size_t
scm_c_symbol_length (SCM sym)
#define FUNC_NAME "scm_c_symbol_length"
{
SCM_VALIDATE_SYMBOL (1, sym);
return STRINGBUF_LENGTH (SYMBOL_STRINGBUF (sym));
}
#undef FUNC_NAME
const char *
scm_i_symbol_chars (SCM sym)
{