diff --git a/lib/src/bulgarian/CatBul.gf b/lib/src/bulgarian/CatBul.gf index 0ca5de5b7..031b66c87 100644 --- a/lib/src/bulgarian/CatBul.gf +++ b/lib/src/bulgarian/CatBul.gf @@ -120,6 +120,12 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv] ** open ResBul, Prelude, Predef, } in linrefVP vp; + Conj = \conj -> let s = linCoord ! conj.conj + in case conj.distr of { + True => s ++ s; + False => s + } ; + V, VS, VQ, VA = \v -> linrefVP (predV v); V2, V2A = \v -> linrefVP (predV v) ++ v.c2.s; V2V = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s ++ "да"; diff --git a/lib/src/english/CatEng.gf b/lib/src/english/CatEng.gf index cd58eeb00..d78a5e381 100644 --- a/lib/src/english/CatEng.gf +++ b/lib/src/english/CatEng.gf @@ -132,6 +132,8 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in { VP = \vp -> infVP VVAux vp Simul CPos (agrP3 Sg) ; VPSlash = \vps -> infVP VVAux vps Simul CPos (agrP3 Sg) ++ vps.c2; + Conj = \conj -> conj.s1 ++ conj.s2 ; + V, VS, VQ, VA = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg); V2, V2A, V2Q, V2S = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg) ++ v.c2; V3 = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg) ++ v.c2 ++ v.c3;