mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

scm_read_shebang: handle non-ascii characters properly.

Browse source 
* libguile/read.c (scm_read_shebang): Abort scan for reader directive
  if a character other than [-a-z0-9] is encountered.
This commit is contained in:
Mark H Weaver 2012-10-30 22:53:22 -04:00
parent fb210d8d16
commit fa746547fc
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/read.c
View file

@ -1391,6 +1391,11 @@ scm_read_shebang (scm_t_wchar chr, SCM port, scm_t_read_opts *opts)
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
else
{
scm_ungetc (c, port);
break;
}
} }
while (i > 0) while (i > 0)
scm_ungetc (name[--i], port); scm_ungetc (name[--i], port);