summaryrefslogtreecommitdiff
path: root/tex/context/base/syst-new.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/syst-new.tex')
-rw-r--r--tex/context/base/syst-new.tex16
1 files changed, 13 insertions, 3 deletions
diff --git a/tex/context/base/syst-new.tex b/tex/context/base/syst-new.tex
index eb92a95b0..5fd8eaaa9 100644
--- a/tex/context/base/syst-new.tex
+++ b/tex/context/base/syst-new.tex
@@ -272,12 +272,22 @@
\newcount\modcounter
-\def\DoMod #1by#2to#3%
+%\def\DoMod #1by#2to#3%
+% {\modcounter#1\divide\modcounter#2\multiply\modcounter#2%
+% #3#1\advance#3 -\modcounter}
+%
+%\def\DoDiv #1by#2to#3%
+% {#3#1\divide#3 #2\relax}
+
+\def\dosetmodulo#1#2#3%
{\modcounter#1\divide\modcounter#2\multiply\modcounter#2%
- #3#1\advance#3 -\modcounter}
+ #3#1\advance#3-\modcounter}
-\def\DoDiv #1by#2to#3%
+\def\dosetdivision#1#2#3%
{#3#1\divide#3 #2\relax}
+
+\def\DoMod#1by#2to#3{\dosetmodulo {#1}{#2}{#3}}
+\def\DoDiv#1by#2to#3{\dosetdivision{#1}{#2}{#3}}
\def\dounprotected#1\par%
{#1\protect}