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

* read.c (scm_flush_ws): Include filename in error message when it

Browse source 
is not `#f'.
This commit is contained in:
Marius Vollmer 2000-08-06 22:04:11 +00:00
parent 7ca3873434
commit d156d3b730
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/read.c
View file

@ -138,7 +138,14 @@ scm_flush_ws (SCM port, const char *eoferr)
case EOF:
goteof:
if (eoferr)
scm_wta (SCM_UNDEFINED, "end of file in ", eoferr);
{
if (SCM_FILENAME (port) != SCM_BOOL_F)
scm_misc_error (eoferr,
"end of file in ~A",
SCM_LIST1 (SCM_FILENAME (port)));
else
scm_misc_error (eoferr, "end of file", SCM_EOL);
}
return c;
case ';':
lp: