From f200086eff39c729cbdbb5dbdcb97b134f3fdd0d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 15 Apr 2016 20:03:56 -0700 Subject: Close source files after parsing. * eval.c (sys_load): close stream in all cases. * match.c (v_load): Likewise. * parser.c (load_rcfile): Close stream in unwind block, if open. * txr.c (txr_main): Close stream after parsing in all cases. If stream is std_input, or a string stream, close_stream does nothing. --- match.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'match.c') diff --git a/match.c b/match.c index 05b1a094..857e1df6 100644 --- a/match.c +++ b/match.c @@ -3739,6 +3739,8 @@ static val v_load(match_files_ctx *c) parse_once(stream, name, &parser); gc_state(gc); + close_stream(stream, nil); + if (parser.errors) sem_error(specline, lit("~s: errors encountered in ~s"), sym, path, nao); @@ -3773,8 +3775,11 @@ static val v_load(match_files_ctx *c) } } } else { - if (!read_eval_stream(stream, std_error, nil)) + if (!read_eval_stream(stream, std_error, nil)){ + close_stream(stream, nil); sem_error(specline, lit("load: ~s contains errors"), path, nao); + } + close_stream(stream, nil); return (sym == include_s) ? nil : next_spec_k; } } -- cgit v1.2.3