diff options
Diffstat (limited to 'tex/context/base/supp-ran.tex')
| -rw-r--r-- | tex/context/base/supp-ran.tex | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/tex/context/base/supp-ran.tex b/tex/context/base/supp-ran.tex index 20892c056..094d0f36b 100644 --- a/tex/context/base/supp-ran.tex +++ b/tex/context/base/supp-ran.tex @@ -61,18 +61,23 @@ \else - \let\normalnextrandom = \nextrandom + \let\verynormalnextrandom = \nextrandom - \global\chardef\randomseedfrozen=0 + \def\normalnextrandom + {\bgroup + \let\time \normaltime + \let\day \normalday + \let\month\normalmonth + \let\year \normalyear + \verynormalnextrandom + \egroup} + + \chardef\randomseedfrozen=0 - \def\nextrandom% + \def\nextrandom {\bgroup - \let\time =\normaltime - \let\day =\normalday - \let\month=\normalmonth - \let\year =\normalyear \normalnextrandom - \gdef\nextrandom% + \gdef\nextrandom {\ifcase\randomseedfrozen\normalnextrandom\fi}% \egroup} |