[latex3-commits] [git/LaTeX3-latex3-latex3] master: Close test stream (023a89329)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/023a893295be1c046a25d70ac8cb734ffb15e3fc

>---------------------------------------------------------------

commit 023a893295be1c046a25d70ac8cb734ffb15e3fc
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Sep 3 12:44:08 2019 +0100

    Close test stream


>---------------------------------------------------------------

023a893295be1c046a25d70ac8cb734ffb15e3fc
 l3kernel/l3candidates.dtx | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/l3kernel/l3candidates.dtx b/l3kernel/l3candidates.dtx
index 37a71ed1b..dffe293bb 100644
--- a/l3kernel/l3candidates.dtx
+++ b/l3kernel/l3candidates.dtx
@@ -2246,21 +2246,28 @@
   {
     \group_begin:
       \cs_set_eq:Nc \g_@@_internal_ior { g_ _file_internal_ior }
-      \cs_set_protected:Npn \@@_if_exist:nTF #1#2#3
+      \prg_set_protected_conditional:Npnn \@@_if_exist:nT #1
+        { T , F , TF }
         {
           \__kernel_ior_open:Nn \g_@@_internal_ior {#1}
-          \ior_if_eof:NTF \g_@@_internal_ior {#3} {#2}
+          \ior_if_eof:NTF \g_@@_internal_ior
+            {
+              \ior_close:N \g_@@_internal_ior
+              \prg_return_false:
+            }
+            {
+              \ior_close:N \g_@@_internal_ior 
+              \prg_return_true:
+            }
         }
       \@@_if_exist:nTF { nul: }
         {
-          \@@_if_exist:nTF { /dev/null }
-            { }
+          \@@_if_exist:nF { /dev/null }
             { \str_const:Nn \c_sys_platform_str { windows } }
         }
         {
-          \@@_if_exist:nTF { /dev/null }
+          \@@_if_exist:nT { /dev/null }
             { \str_const:Nn \c_sys_platform_str { unix } }
-            { }
         }
     \group_end:
   }