diff options
author | Andy Wingo <wingo@wingomac.bcn.oblong.net> | 2010-10-18 13:29:58 +0200 |
---|---|---|
committer | Andy Wingo <wingo@wingomac.bcn.oblong.net> | 2010-10-18 13:29:58 +0200 |
commit | c1a0ba1cef7cf16d9efc230d4a3166abdef3f29e (patch) | |
tree | abbb50b19b9b999a58244c8d33d0fea26f136d35 | |
parent | ddffdd788d433318d528f7e4ec3da2a48c0f1fb9 (diff) | |
download | guile-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.c | 3 |
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)); |