added CloseStream() in ReadMTXE()

QEC-pages · Nov 20, 2024 · 05d7da4 · 05d7da4
1 parent 5ff87cc
commit 05d7da4
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/qdistrnd.g b/lib/qdistrnd.g
@@ -465,7 +465,7 @@ BindGlobal("QDR_ProcEntry",
 #DeclareGlobalFunction("ReadMTXE");
 BindGlobal("ReadMTXE",
                      function(StrPath, opt... ) # supported option: "field"
-                         local input, data, fmt, line, pair, F, rowsG, colsG, G, G1, i, 
+                         local input, data, fmt, line, pair, F, rowsG, colsG, G, G1, i, infile,
                                iCommentStart,iComment;
                          # local variables:
                          # input - file converted to a string
@@ -483,7 +483,9 @@ BindGlobal("ReadMTXE",
                          # i - dummy for "for" loop
                          # iCommentStart, iComment - range of line numbers for comment section
 
-                         input := ReadAll(InputTextFile(StrPath));; # read the file in
+                         infile := InputTextFile(StrPath);                          
+                         input := ReadAll();;                        # read the file in
+                         CloseStream(infile);                         
                          data := SplitString(input, "\n");;         # separate into lines
                          line := SplitString(data[1], " ");;         # separate into records