summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-07-05 20:10:44 +0200
committerLudovic Courtès <ludo@gnu.org>2008-07-05 20:16:12 +0200
commit071bb6a84061dd8fba278219797fd376b0a54e10 (patch)
tree7010d07119758e684d9c7344a91993e03bb694dc /libguile/strings.c
parentb6137ed741eb0f14a4fb68c98879b91ec8250039 (diff)
downloadguile-071bb6a84061dd8fba278219797fd376b0a54e10.tar.gz
Add `scm_c_symbol_length ()'.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c10
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)
{