mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

print_normal_symbol uses new port functions

Browse source 
* libguile/print.c (print_normal_symbol): Use new port functions.
This commit is contained in:
Andy Wingo 2016-05-30 11:59:58 +02:00
parent 43b6feeb1a
commit 8f615cde45
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/print.c
View file

@ -436,16 +436,18 @@ symbol_has_extended_read_syntax (SCM sym)
static void static void
print_normal_symbol (SCM sym, SCM port) print_normal_symbol (SCM sym, SCM port)
{ {
size_t len; size_t len = scm_i_symbol_length (sym);
scm_t_string_failed_conversion_handler strategy;
len = scm_i_symbol_length (sym);
strategy = PORT_CONVERSION_HANDLER (port);
if (scm_i_is_narrow_symbol (sym)) if (scm_i_is_narrow_symbol (sym))
display_string (scm_i_symbol_chars (sym), 1, len, port, strategy); {
const char *ptr = scm_i_symbol_chars (sym);
scm_c_put_latin1_chars (port, (const scm_t_uint8 *) ptr, len);
}
else else
display_string (scm_i_symbol_wide_chars (sym), 0, len, port, strategy); {
const scm_t_wchar *ptr = scm_i_symbol_wide_chars (sym);
scm_c_put_utf32_chars (port, (const scm_t_uint32 *) ptr, len);
}
} }
static void static void