summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@wingomac.bcn.oblong.net>2010-10-18 13:29:58 +0200
committerAndy Wingo <wingo@wingomac.bcn.oblong.net>2010-10-18 13:29:58 +0200
commitc1a0ba1cef7cf16d9efc230d4a3166abdef3f29e (patch)
treeabbb50b19b9b999a58244c8d33d0fea26f136d35
parentddffdd788d433318d528f7e4ec3da2a48c0f1fb9 (diff)
downloadguile-c1a0ba1cef7cf16d9efc230d4a3166abdef3f29e.tar.gz
uninitialized var in scm_read_character
* libguile/read.c (scm_read_character): Fix error condition where charname could be uninitialized.
-rw-r--r--libguile/read.c3
1 files changed, 1 insertions, 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));