diff options
-rw-r--r-- | parser.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -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)); } } |