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.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 25678510..d9aca0df 100644
--- a/eval.c
+++ b/eval.c
@@ -3261,15 +3261,18 @@ static val sys_load(val target, val sloc)
   open_txr_file(path, &txr_lisp_p, &name, &stream);
 
   if (!txr_lisp_p) {
+    close_stream(stream, nil);
     rlset(sloc, sloc);
     eval_error(sloc, lit("load doesn't process .txr files"), nao);
   }
 
   if (!read_eval_stream(stream, std_error, nil)) {
     rlset(sloc, sloc);
+    close_stream(stream, nil);
     eval_error(sloc, lit("load: ~s contains errors"), path, nao);
   }
 
+  close_stream(stream, nil);
   return nil;
 }