[Guile-commits] 01/02: Remove unused 'scm_i_c_make_symbol'.

[Ludovic Courtès]

civodul pushed a commit to branch wip-symbol-props
in repository guile.

commit 2ebf0397075d6a557f18e45c9b0ed824be68808e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Feb 3 23:23:59 2022 +0100

    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.
---
 libguile/strings.c | 11 -----------
 libguile/strings.h |  3 ---
 2 files changed, 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);