misplaced al@rlmode boolean

1 files changed, 4 insertions, 10 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 4f841e9..50af415 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -4563,25 +4563,19 @@ wa-ya.sIru ta.hta 'l-jild-i
 \NewDocumentCommand{\arb}{O{\al@mode} +m}%
 {\edef\@tempa{#1}%
   \ifx\@tempa\al@mode@voc%
-  \booltrue{al@rlmode}%
-  \bgroup\textdir TRT\arabicfont%
+  \bgroup\booltrue{al@rlmode}\textdir TRT\arabicfont%
   \luadirect{tex.sprint(processvoc(\luastringN{#2},
     \luastringO{\al@arb@rules}, \luastringO{\al@input@scheme}))}\egroup%
-  \boolfalse{al@rlmode}%
   \else%
   \ifx\@tempa\al@mode@fullvoc%
-  \booltrue{al@rlmode}%
-  \bgroup\textdir TRT\arabicfont%
+  \bgroup\booltrue{al@rlmode}\textdir TRT\arabicfont%
   \luadirect{tex.sprint(processfullvoc(\luastringN{#2},
     \luastringO{\al@arb@rules}, \luastringO{\al@input@scheme}))}\egroup%
-  \boolfalse{al@rlmode}%
   \else%
   \ifx\@tempa\al@mode@novoc%
-  \booltrue{al@rlmode}%
-  \bgroup\textdir TRT\arabicfont%
+  \bgroup\booltrue{al@rlmode}\textdir TRT\arabicfont%
   \luadirect{tex.sprint(processnovoc(\luastringN{#2},
     \luastringO{\al@arb@rules}, \luastringO{\al@input@scheme}))}\egroup%
-  \boolfalse{al@rlmode}%
   \else%
   \ifx\@tempa\al@mode@trans%
   \bgroup\textdir TLT\al@trans@style%
@@ -4939,7 +4933,7 @@ wa-ya.sIru ta.hta 'l-jild-i
 % right direction.
 %    \begin{macrocode}
 \NewDocumentCommand{\arbpardir}{}{%
-  \ifx\al@mode\al@mode@trans\setLR\else\booltrue{al@rlmode}\setRL\fi}
+  \ifx\al@mode\al@mode@trans\setLR\else\setRL\fi}
 %    \end{macrocode}
 % \end{macro}
 %