diff options
author | Mark H Weaver <mhw@netris.org> | 2012-10-30 22:53:22 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-10-30 22:53:22 -0400 |
commit | fa746547fc0cd15f5edbb690477d37a23de4f183 (patch) | |
tree | 9ef29ecde43c1e834b2d5b8305e8173c64da7948 | |
parent | fb210d8d165ea234a72f0f4dd25239ad21f64991 (diff) | |
download | guile-fa746547fc0cd15f5edbb690477d37a23de4f183.tar.gz |
scm_read_shebang: handle non-ascii characters properly.
* libguile/read.c (scm_read_shebang): Abort scan for reader directive
if a character other than [-a-z0-9] is encountered.
-rw-r--r-- | libguile/read.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/read.c b/libguile/read.c index ebd1119eb..469ed5b38 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1391,6 +1391,11 @@ scm_read_shebang (scm_t_wchar chr, SCM port, scm_t_read_opts *opts) return SCM_UNSPECIFIED; } + else + { + scm_ungetc (c, port); + break; + } } while (i > 0) scm_ungetc (name[--i], port); |