summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/polexpr/polexprcore.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/polexpr/polexprcore.tex')
-rw-r--r--Master/texmf-dist/tex/generic/polexpr/polexprcore.tex11
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)