diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-08-26 13:15:07 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-08-26 13:15:07 +0200 |
| commit | 4769c9db2c7949ede3b637d5e64d90519a4932e0 (patch) | |
| tree | f3656e25183519bf499d16161cfb0f5cd2e6b965 | |
| parent | 5a70cf0a6c318be6faf5c063128e14a492c7b06b (diff) | |
| download | guile-4769c9db2c7949ede3b637d5e64d90519a4932e0.tar.gz | |
fix uninitialized variable in scm_read_character
* libguile/read.c (scm_read_character): Fix uninitialized variable.
| -rw-r--r-- | libguile/read.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/read.c b/libguile/read.c index 821e01cea..c36842aac 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -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", |