diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf index d3151bb70..184288404 100644 --- a/lib/src/translator/TranslateEng.gf +++ b/lib/src/translator/TranslateEng.gf @@ -31,11 +31,11 @@ concrete TranslateEng of Translate = QuestionEng - [ QuestVP -- replaced by QuestVP | contracted QuestVP ,QuestIComp - ,QuestSlash -- replaced by QuestSlash | StrandQuestSlash + ,QuestSlash -- replaced by QuestSlash | PiedPipingQuestSlash ], RelativeEng - [ IdRP -- with variants that/who/which/- - ,RelSlash -- replaced by RelSlash | StrandRelSlash + ,RelSlash -- replaced by RelSlash | PiedPipingRelSlash ], IdiomEng, ConstructionEng, diff --git a/lib/src/translator/TranslateSwe.gf b/lib/src/translator/TranslateSwe.gf index 9e55a50fc..6062e4027 100644 --- a/lib/src/translator/TranslateSwe.gf +++ b/lib/src/translator/TranslateSwe.gf @@ -16,8 +16,12 @@ concrete TranslateSwe of Translate = AdverbSwe, PhraseSwe, SentenceSwe, - QuestionSwe, - RelativeSwe, + QuestionSwe - [ + QuestSlash -- replaced by QuestSlash | PiedPipingQuestSlash + ], + RelativeSwe - [ + RelSlash -- replaced by RelSlash | PiedPipingRelSlash + ], IdiomSwe, ConstructionSwe, DocumentationSwe, @@ -45,5 +49,8 @@ lin | {s = \\n,d,c => np.s ! NPPoss (gennum (ngen2gen cn.g) n) Nom ++ cn.s ! n ! DDef Indef ! c ; g = cn.g ; isMod = True} ---- overgenerating ; + RelSlash rp cls = G.RelSlash rp cls | E.PiedPipingRelSlash rp cls ; + + QuestSlash ip cls = G.QuestSlash ip cls | E.PiedPipingQuestSlash ip cls ; }