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, 4 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index 012b4da1..865dee7b 100644
--- a/parser.c
+++ b/parser.c
@@ -426,7 +426,10 @@ static void load_rcfile(val name)
     format(std_output, lit("** details: ~a\n"), car(va), nao);
   }
 
-  uw_unwind;
+  uw_unwind {
+    if (stream)
+      close_stream(stream, nil);
+  }
 
   uw_catch_end;
 }