diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf index 0122ff126..c665f30c9 100644 --- a/lib/src/translator/TranslateEng.gf +++ b/lib/src/translator/TranslateEng.gf @@ -18,6 +18,7 @@ concrete TranslateEng of Translate = VerbEng - [ UseCopula, -- just removed: not needed PassV2, -- generalized in Extensions + AdvVP, -- more liberal placement of adv ComplVS, SlashV2S, ComplSlash -- Eng exceptions ], AdverbEng, @@ -65,6 +66,8 @@ lin SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ; ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ; + AdvVP vp adv = G.AdvVP vp adv | insertObjPre (\\_ => adv.s) vp ; -- I bought a car today | I bought today a car + PPos = {s = [] ; p = CPos} ; PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ;