Improvement in hash bang code.

* parser.c (read_eval_stream): Simplify hash bang code and avoid
creating a string that might not end up being used.

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));
     }
   }