[latex3-commits] [git/LaTeX3-latex3-latex3] main: Correct sign for \c_log_iow (fixes #1105) (a98fde561)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/a98fde5613d1278fe6fa81579158103daa474692

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

commit a98fde5613d1278fe6fa81579158103daa474692
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Sun Jun 26 07:22:15 2022 +0100

    Correct sign for \c_log_iow (fixes #1105)


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

a98fde5613d1278fe6fa81579158103daa474692
 l3kernel/CHANGELOG.md            |  1 +
 l3kernel/l3file.dtx              |  2 +-
 l3kernel/testfiles/m3file002.lvt | 14 +++++++++++++-
 l3kernel/testfiles/m3file002.tlg | 10 ++++++++++
 4 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/l3kernel/CHANGELOG.md b/l3kernel/CHANGELOG.md
index 48077ec63..26aa33bee 100644
--- a/l3kernel/CHANGELOG.md
+++ b/l3kernel/CHANGELOG.md
@@ -15,6 +15,7 @@ this project uses date-based 'snapshot' version identifiers.
 
 ### Fixed
 - Correct validity check performed by `\regex_show:N` (gh/1093)
+- Closing of file handles (issue \#1105)
 
 ## [2022-06-16]
 
diff --git a/l3kernel/l3file.dtx b/l3kernel/l3file.dtx
index a0bb1b214..f3fd30842 100644
--- a/l3kernel/l3file.dtx
+++ b/l3kernel/l3file.dtx
@@ -1552,7 +1552,7 @@
 %    \begin{macrocode}
 \cs_new_protected:Npn \iow_close:N #1
   {
-    \int_compare:nT { - \c_log_iow < #1 < \c_term_iow }
+    \int_compare:nT { \c_log_iow < #1 < \c_term_iow }
       {
         \tex_immediate:D \tex_closeout:D #1
         \prop_gremove:NV \g_@@_streams_prop #1
diff --git a/l3kernel/testfiles/m3file002.lvt b/l3kernel/testfiles/m3file002.lvt
index 9304f27d8..421565275 100644
--- a/l3kernel/testfiles/m3file002.lvt
+++ b/l3kernel/testfiles/m3file002.lvt
@@ -1,5 +1,5 @@
 %
-% Copyright (C) 2014,2018-2021 The LaTeX Project
+% Copyright (C) 2014,2018-2022 The LaTeX Project
 %
 
 \documentclass{minimal}
@@ -63,4 +63,16 @@
     \TYPE { | \tl_to_str:N \l_A_tl | }
   }
 
+\TEST { Use~a~scratch~file~handle  }
+  {
+    \iow_open:Nn \g_tmpa_iow { \jobname.tmp }
+    \int_show:N \g_tmpa_iow
+    \iow_now:Nn  \g_tmpa_iow { baz }
+    \int_compare:nTF { \c_log_iow < \g_tmpa_iow < \c_term_iow }
+      { \TRUE } { \ERROR }
+    \iow_close:N \g_tmpa_iow
+    \int_compare:nTF { \c_log_iow < \g_tmpa_iow < \c_term_iow }
+      { \ERROR } { \FALSE }
+  }
+
 \END
diff --git a/l3kernel/testfiles/m3file002.tlg b/l3kernel/testfiles/m3file002.tlg
index 6c4581d93..4ed83927b 100644
--- a/l3kernel/testfiles/m3file002.tlg
+++ b/l3kernel/testfiles/m3file002.tlg
@@ -17,3 +17,13 @@ TEST 2: Get a non-existent file
 ============================================================
 |\q_no_value |
 ============================================================
+============================================================
+TEST 3: Use a scratch file handle
+============================================================
+\g_tmpa_iow=\write...
+> \g_tmpa_iow=3.
+<recently read> }
+l. ...  }
+TRUE
+FALSE
+============================================================