double negation in Bulgarian

2013-12-04 08:20:40 +00:00
parent 7ae0bca14c
commit 6ce9b2116f
14 changed files with 189 additions and 106 deletions
--- a/src/bulgarian/RelativeBul.gf
+++ b/src/bulgarian/RelativeBul.gf
@@ -14,7 +14,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
    RelVP rp vp = {
      s = \\t,a,p,agr => 
        let 
-          cl = mkClause (rp.s ! agr.gn) agr vp
+          cl = mkClause (rp.s ! agr.gn) agr Pos vp
        in
        cl.s ! t ! a ! p ! Main ;
      role = RSubj