From: Andy Wingo <wingo@pobox.com>
Date: Wed, 26 Aug 2009 11:15:07 +0000 (+0200)
Subject: fix uninitialized variable in scm_read_character
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/4769c9db2c7949ede3b637d5e64d90519a4932e0

fix uninitialized variable in scm_read_character

* libguile/read.c (scm_read_character): Fix uninitialized variable.
---

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",