fix CleftAdv in bulgarian-1.4

2008-06-15 09:08:14 +00:00
parent 6d3331a1c6
commit d9cca2146d
1 changed files with 1 additions and 4 deletions
--- 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 =>