diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-07-05 20:10:44 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-07-05 20:16:12 +0200 |
commit | 071bb6a84061dd8fba278219797fd376b0a54e10 (patch) | |
tree | 7010d07119758e684d9c7344a91993e03bb694dc /libguile/strings.c | |
parent | b6137ed741eb0f14a4fb68c98879b91ec8250039 (diff) | |
download | guile-071bb6a84061dd8fba278219797fd376b0a54e10.tar.gz |
Add `scm_c_symbol_length ()'.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index c322132fd..c9b08a05b 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -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) { |