From c1a0ba1cef7cf16d9efc230d4a3166abdef3f29e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@wingomac.bcn.oblong.net>
Date: Mon, 18 Oct 2010 13:29:58 +0200
Subject: [PATCH] uninitialized var in scm_read_character

* libguile/read.c (scm_read_character): Fix error condition where
  charname could be uninitialized.
---
 libguile/read.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libguile/read.c b/libguile/read.c
index 118b9ccfa..c9219bca3 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -906,7 +906,7 @@ scm_read_character (scm_t_wchar chr, SCM port)
 
   overflow = read_token (port, buffer, READER_CHAR_NAME_MAX_SIZE, &bytes_read);
   if (overflow)
-    goto char_error;
+    scm_i_input_error (FUNC_NAME, port, "character name too long", SCM_EOL);
 
   if (bytes_read == 0)
     {
@@ -992,7 +992,6 @@ scm_read_character (scm_t_wchar chr, SCM port)
         return ch;
     }
 
- char_error:
   scm_i_input_error (FUNC_NAME, port, "unknown character name ~a",
 		     scm_list_1 (charname));