summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-10-30 22:53:22 -0400
committerMark H Weaver <mhw@netris.org>2012-10-30 22:53:22 -0400
commitfa746547fc0cd15f5edbb690477d37a23de4f183 (patch)
tree9ef29ecde43c1e834b2d5b8305e8173c64da7948
parentfb210d8d165ea234a72f0f4dd25239ad21f64991 (diff)
downloadguile-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.c5
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);