From d9cca2146d0d23894758b6c10e3891f50eb043ed Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 15 Jun 2008 09:08:14 +0000
Subject: [PATCH] fix CleftAdv in bulgarian-1.4

---
 lib/resource-1.4/bulgarian/IdiomBul.gf | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/resource-1.4/bulgarian/IdiomBul.gf b/lib/resource-1.4/bulgarian/IdiomBul.gf
index 345f5c19b..cb13ff99b 100644
--- a/lib/resource-1.4/bulgarian/IdiomBul.gf
+++ b/lib/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 =>