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

fix uninitialized variable in scm_read_character

Browse source 
* libguile/read.c (scm_read_character): Fix uninitialized variable.
This commit is contained in:
Andy Wingo 2009-08-26 13:15:07 +02:00
parent 5a70cf0a6c
commit 4769c9db2c
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/read.c
View file

@ -818,7 +818,6 @@ static SCM
scm_read_character (scm_t_wchar chr, SCM port)
#define FUNC_NAME "scm_lreadr"
{
SCM ch;
SCM charname = scm_i_make_string (READER_CHAR_NAME_MAX_SIZE, NULL);
size_t charname_len;
scm_t_wchar cp;
@ -861,10 +860,11 @@ scm_read_character (scm_t_wchar chr, SCM port)
characters. */
if (scm_i_is_narrow_string (charname)
|| scm_i_try_narrow_string (charname))
ch = scm_i_charname_to_char (scm_i_string_chars (charname),
charname_len);
if (scm_is_true (ch))
return ch;
{ SCM ch = scm_i_charname_to_char (scm_i_string_chars (charname),
charname_len);
if (scm_is_true (ch))
return ch;
}
char_error:
scm_i_input_error (FUNC_NAME, port, "unknown character name ~a",