summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--parser.c9
1 files changed, 3 insertions, 6 deletions
diff --git a/parser.c b/parser.c
index 86dc9a4d..c5342ae9 100644
--- a/parser.c
+++ b/parser.c
@@ -312,13 +312,10 @@ val read_eval_stream(val stream, val error_stream, val hash_bang_support)
if (hash_bang_support) {
val firstline = get_line(stream);
- if (firstline) {
+ if (firstline && !match_str(firstline, lit("#!"), nil)) {
val flwnl = cat_str(list(firstline, lit("\n"), nao), nil);
-
- if (!match_str(flwnl, lit("#!"), nil)) {
- val string_stream = make_string_byte_input_stream(flwnl);
- stream = make_catenated_stream(list(string_stream, stream, nao));
- }
+ val string_stream = make_string_byte_input_stream(flwnl);
+ stream = make_catenated_stream(list(string_stream, stream, nao));
}
}