summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/read.c')
-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));