;;; -*- Mode: tdl; Coding: utf-8; -*- redup-hyphen_tmr := add_one_tmt & [ +INPUT < >, +CONTEXT < [+FORM ^(.*)[-]$, +TM #tm, +LM #lm, +TONES #tones, +LENGTHS #lengths], [ ] >, +OUTPUT < [ +FORM "__REDUP__", +CARG "${C1:+FORM:1}", +TM #tm, +LM #lm, +TONES #tones, +LENGTHS #lengths ] > ]. redup_tmr := add_one_tmt & [ +INPUT < >, +CONTEXT < [+FORM ^(.*[^-])$, +TM #tm, +LM #lm, +TONES #tones, +LENGTHS #lengths], [ ] >, +OUTPUT < [ +FORM "__REDUP__", +CARG "${C1:+FORM:1}", +TM #tm, +LM #lm, +TONES #tones, +LENGTHS #lengths ] > ].