mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(scm_input_error): new function: give meaningful error

Browse source 
messages, and throw read-error
This commit is contained in:
Han-Wen Nienhuys 2002-08-05 23:11:59 +00:00
parent ba1b222692
commit 0f8ae50a81
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/read.c
View file

@ -191,12 +191,10 @@ scm_flush_ws (SCM port, const char *eoferr)
goteof:
if (eoferr)
{
if (!SCM_FALSEP (SCM_FILENAME (port)))
scm_misc_error (eoferr,
"end of file in ~A",
scm_list_1 (SCM_FILENAME (port)));
else
scm_misc_error (eoferr, "end of file", SCM_EOL);
scm_input_error (eoferr,
port,
"end of file",
SCM_EOL);
}
return c;
case ';':