Remove unused 'scm_i_c_make_symbol'.

* libguile/strings.c (scm_i_c_make_symbol): Remove.
* libguile/strings.h (scm_i_c_make_symbol): Remove declaration.

2 files changed, 0 insertions, 14 deletions

diff --git a/libguile/strings.c b/libguile/strings.c
index aab104498..5eb92bb3f 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -772,17 +772,6 @@ scm_i_make_symbol (SCM name, scm_t_bits flags,
 			  (scm_t_bits) hash, SCM_UNPACK (props));
 }
 
-SCM
-scm_i_c_make_symbol (const char *name, size_t len,
-		     scm_t_bits flags, unsigned long hash, SCM props)
-{
-  SCM buf = make_stringbuf (len);
-  memcpy (STRINGBUF_CHARS (buf), name, len);
-
-  return scm_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf),
-                          (scm_t_bits) hash, SCM_UNPACK (props));
-}
-
 /* Returns the number of characters in SYM.  This may be different
    from the memory size of SYM.  */
 size_t
diff --git a/libguile/strings.h b/libguile/strings.h
index 3f92d8c89..e8f93ee0f 100644
--- a/libguile/strings.h
+++ b/libguile/strings.h
@@ -251,9 +251,6 @@ SCM_INTERNAL void scm_i_string_set_x (SCM str, size_t p, scm_t_wchar chr);
 
 SCM_INTERNAL SCM scm_i_make_symbol (SCM name, scm_t_bits flags,
 				    unsigned long hash, SCM props);
-SCM_INTERNAL SCM
-scm_i_c_make_symbol (const char *name, size_t len,
-		     scm_t_bits flags, unsigned long hash, SCM props);
 SCM_INTERNAL const char *scm_i_symbol_chars (SCM sym);
 SCM_INTERNAL const scm_t_wchar *scm_i_symbol_wide_chars (SCM sym);
 SCM_INTERNAL size_t scm_i_symbol_length (SCM sym);