summaryrefslogtreecommitdiffstats
path: root/parser.c
diff options
context:
space:
mode:
Diffstat (limited to 'parser.c')
-rw-r--r--parser.c14
1 files changed, 2 insertions, 12 deletions
diff --git a/parser.c b/parser.c
index 5c22ac3a..11bf27f7 100644
--- a/parser.c
+++ b/parser.c
@@ -577,21 +577,11 @@ val iread(val source_in, val error_stream, val error_return_val,
name_in, lineno);
}
-val read_eval_stream(val stream, val error_stream, val hash_bang_support)
+val read_eval_stream(val stream, val error_stream)
{
val error_val = gensym(nil);
val name = stream_get_prop(stream, name_k);
- if (hash_bang_support) {
- val firstline = get_line(stream);
-
- if (firstline && !match_str(firstline, lit("#!"), nil)) {
- val flwnl = scat(nil, firstline, lit("\n"), nao);
- val string_stream = make_string_byte_input_stream(flwnl);
- stream = make_catenated_stream(list(string_stream, stream, nao));
- }
- }
-
for (;;) {
val form = lisp_parse(stream, error_stream, error_val, name, colon_k);
val parser = get_parser(stream);
@@ -639,7 +629,7 @@ static void load_rcfile(val name)
} else {
val saved_dyn_env = set_dyn_env(make_env(nil, nil, dyn_env));
env_vbind(dyn_env, load_path_s, resolved_name);
- read_eval_stream(stream, std_output, nil);
+ read_eval_stream(stream, std_output);
dyn_env = saved_dyn_env;
}
}