diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/polexpr/polexprcore.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/polexpr/polexprcore.tex | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/generic/polexpr/polexprcore.tex b/Master/texmf-dist/tex/generic/polexpr/polexprcore.tex index a5c93f0f467..66d85123799 100644 --- a/Master/texmf-dist/tex/generic/polexpr/polexprcore.tex +++ b/Master/texmf-dist/tex/generic/polexpr/polexprcore.tex @@ -1,4 +1,4 @@ -%% This file polexprcore.tex is part of the polexpr package (0.8.1, 2021/04/12) +%% This file polexprcore.tex is part of the polexpr package (0.8.2, 2021/05/05) %% Core routines to match infix operators +, -, *, //, /:, ^, ** and some %% functions %% The atoms representing polynomials inside \xintexpr are @@ -383,17 +383,17 @@ \def\POL_pow_in #1\xint:#2% {% {% - \expandafter\POL_pow_fork\the\numexpr \xintNum{#2}.#1\empty + \expandafter\POL_pow_fork\romannumeral0\xintraw{#2}.#1\empty }% }% -\def\POL_pow_fork #1#2.% +\def\POL_pow_fork #1%#2.% {% \xint_UDzerominusfork #1-\POL_pow_zero 0#1\POL_pow_neg 0-\POL_pow_pos \krof - #1#2.% + #1%#2.% }% \def\POL_pow_zero #1\empty{1/1[0]}% \def\POL_pow_neg #1.#2% @@ -402,7 +402,7 @@ }% \def\POL_pow_pos #1.#2% {% - \POL_Pfork #2{\POL_pow_a}P{\POL_pow_scalar}\krof #1.#2% + \POL_Pfork #2{\POL_pow_aa}P{\POL_pow_scalar}\krof #1.#2% }% \def\POL_pow_scalar #1.#2\empty {% @@ -413,6 +413,7 @@ \romannumeral0\XINT_signalcondition{InvalidOperation}% {Not supported: polynomial to negative power #1}{}{1/1[0]}% }% +\def\POL_pow_aa #1.{\expandafter\POL_pow_a\the\numexpr\xintNum{#1}.}% \def\POL_pow_a #1.% {% % trailing \empty will disappear in expanded context (old comment) |