From ca1739e984993ff4558276b67340fc82d0590292 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sun, 15 Jun 2008 09:08:14 +0000 Subject: [PATCH] fix CleftAdv in bulgarian-1.4 --- resource-1.4/bulgarian/IdiomBul.gf | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/resource-1.4/bulgarian/IdiomBul.gf b/resource-1.4/bulgarian/IdiomBul.gf index 345f5c19b..cb13ff99b 100644 --- a/resource-1.4/bulgarian/IdiomBul.gf +++ b/resource-1.4/bulgarian/IdiomBul.gf @@ -10,10 +10,7 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in { {gn=GSg Neut; p=np.a.p} (insertObj (\\_ => thisRP ! np.a.gn ++ rs.s ! np.a.gn) (predV verbBe)) ; - CleftAdv ad s = - mkClause (ad.s) - (agrP3 (GSg Neut)) - (insertObj (\\_ => thisRP ! GPl ++ s.s) (predV verbBe)) ; + CleftAdv ad s = {s = \\t,a,p,o => case p of {Pos=>[]; Neg=>"νε"} ++ ad.s ++ s.s } ; ExistNP np = { s = \\t,a,p,o =>