diff options
| author | Marius <mariausol@gmail.com> | 2013-04-06 15:00:22 +0300 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2013-04-06 15:00:22 +0300 |
| commit | 99c647f91806e9b73970a8e252af5a7974d5a57d (patch) | |
| tree | 19306fbe23ad3b1617edda7c4aa47a9ac44a1ea9 /tex/context/base/mult-aux.mkiv | |
| parent | d0342a37af2ced0e9b350e01ab3eaa2311f0cdb9 (diff) | |
| download | context-99c647f91806e9b73970a8e252af5a7974d5a57d.tar.gz | |
beta 2013.04.05 22:00
Diffstat (limited to 'tex/context/base/mult-aux.mkiv')
| -rw-r--r-- | tex/context/base/mult-aux.mkiv | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tex/context/base/mult-aux.mkiv b/tex/context/base/mult-aux.mkiv index 62111a642..97b330248 100644 --- a/tex/context/base/mult-aux.mkiv +++ b/tex/context/base/mult-aux.mkiv @@ -266,6 +266,12 @@ \let\definehandlerparent\empty +\def\mult_check_for_parent#1#2#3#4% + {\ifcsname#1#4:\s!parent\endcsname \else \ifx#4\empty \else + \writestatus\m!system{error: invalid parent #4 for #3, #4 defined too (best check it)}% + \expandafter\edef\csname#1#4:\s!parent\endcsname{#2}% + \fi \fi} + \unexpanded\def\mult_interfaces_install_define_handler#1#2#3#4#5#6#7#8#9% why is \expanded still needed in clones {\ifx#4\relax\let#4\empty\fi % see \defineregister \unexpanded\def#2{\dotripleempty#5}% @@ -277,6 +283,7 @@ \ifthirdargument \the#6% predefine \edef#8{##2}% + \mult_check_for_parent{#1}{#3}#4#8% \expandafter\edef\csname#1#4:\s!parent\endcsname{#1##2}% \mult_interfaces_get_parameters{#1#4:}[##3]% \else\ifsecondargument @@ -288,6 +295,7 @@ \mult_interfaces_get_parameters{#1#4:}[##2]% \else \edef#8{##2}% + \mult_check_for_parent{#1}{#3}#4#8% \expandafter\edef\csname#1#4:\s!parent\endcsname{#1##2}% \fi \else |