mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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: goteof:
if (eoferr) if (eoferr)
{ {
if (!SCM_FALSEP (SCM_FILENAME (port))) scm_input_error (eoferr,
scm_misc_error (eoferr, port,
"end of file in ~A", "end of file",
scm_list_1 (SCM_FILENAME (port))); SCM_EOL);
else
scm_misc_error (eoferr, "end of file", SCM_EOL);
} }
return c; return c;
case ';': case ';':