[latex3-commits] [latex3/latex3] main: Simplify an internal function (737d12850)

[github at latex-project.org]

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

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

commit 737d128508c3646b921626e2b784612e0f831c73
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Sun Jun 11 23:02:33 2023 +0100

    Simplify an internal function


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

737d128508c3646b921626e2b784612e0f831c73
 l3kernel/l3text-case.dtx | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index 085ab53d5..608b5c1a3 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -1247,15 +1247,18 @@
 %    \begin{macrocode}
 \cs_new:Npn \@@_change_case_upper_el_ypogegrammeni:n #1
   {
-    \int_case:nn
-      { \@@_codepoint_from_chars:Nw #1 }
-      {
-        { "0391 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FBC } }
-        { "03B1 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FBC } }
-        { "0397 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FCC } }
-        { "03B7 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FCC } }
-        { "03A9 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FFC } }
-        { "03C9 } { \@@_change_case_upper_el_ypogegrammeni_aux:n { "1FFC } }
+    \exp_args:Ne \@@_change_case_upper_el_ypogegrammeni_aux:n
+      {
+        \int_case:nn
+          { \@@_codepoint_from_chars:Nw #1 }
+          {
+            { "0391 } { "1FBC }
+            { "03B1 } { "1FBC }
+            { "0397 } { "1FCC }
+            { "03B7 } { "1FCC }
+            { "03A9 } { "1FFC }
+            { "03C9 } { "1FFC }
+          }
       }
   }
 \cs_new:Npn \@@_change_case_upper_el_ypogegrammeni_aux:n #1