diff options
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index a3ad5daea..578e35330 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -445,7 +445,8 @@ tryagain_no_flush_ws: j = 0; while ('"' != (c = scm_getc (port))) { - SCM_ASSERT (EOF != c, SCM_UNDEFINED, "end of file in ", "string"); + if (c == EOF) + SCM_MISC_ERROR ("end of file in string constant", SCM_EOL); while (j + 2 >= SCM_STRING_LENGTH (*tok_buf)) scm_grow_tok_buf (tok_buf); |