mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Expose `scm_encoding_error'.

Browse source 
* libguile/strings.c (scm_encoding_error): Make public.

* libguile/strings.h (scm_encoding_error): New internal declaration.
This commit is contained in:
Ludovic Courtès 2010-07-15 18:45:29 +02:00
parent 88e41e94d3
commit d14418a535
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strings.c
View file

@ -1410,7 +1410,7 @@ scm_is_string (SCM obj)
/* Conversion to/from other encodings. */ /* Conversion to/from other encodings. */
SCM_SYMBOL (scm_encoding_error_key, "encoding-error"); SCM_SYMBOL (scm_encoding_error_key, "encoding-error");
static void void
scm_encoding_error (const char *subr, int err, const char *message, scm_encoding_error (const char *subr, int err, const char *message,
const char *from, const char *to, SCM string_or_bv) const char *from, const char *to, SCM string_or_bv)
{ {

4
libguile/strings.h
View file

@ -195,6 +195,10 @@ SCM_INTERNAL int scm_i_is_narrow_symbol (SCM str);
SCM_INTERNAL int scm_i_try_narrow_string (SCM str); SCM_INTERNAL int scm_i_try_narrow_string (SCM str);
SCM_INTERNAL SCM scm_i_symbol_substring (SCM sym, size_t start, size_t end); SCM_INTERNAL SCM scm_i_symbol_substring (SCM sym, size_t start, size_t end);
SCM_INTERNAL scm_t_wchar scm_i_symbol_ref (SCM sym, size_t x); SCM_INTERNAL scm_t_wchar scm_i_symbol_ref (SCM sym, size_t x);
SCM_INTERNAL void scm_encoding_error (const char *subr, int err,
const char *message,
const char *from, const char *to,
SCM string_or_bv);
/* internal utility functions. */ /* internal utility functions. */