Fixed direct object negation cases

2020-08-09 17:20:03 +03:00
parent f9467bffd3
commit 13ee63e25d
19 changed files with 386 additions and 106 deletions
@@ -28,7 +28,7 @@ lin
  -- : VP -> Utt ;               -- to sleep
  UttVP vp
    = let a=Ag (GSg Neut) P3 in {
-      s=vp.adv ! a ++ (verbInf vp.verb) ++ vp.dep ++ vp.compl ! a
+      s=vp.adv ! a ++ (verbInf vp.verb) ++ vp.dep ++ vp.compl ! Pos ! a
      } ;

  -- : CN -> Utt ;               -- house