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

* 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: case EOF:
goteof: goteof:
if (eoferr) 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; return c;
case ';': case ';':
lp: lp: