premodifiers like never can change the polarity of VP

2018-06-07 14:27:45 +02:00
parent bf37eb06a9
commit fe72ccdec1
8 changed files with 12 additions and 9 deletions
@@ -91,7 +91,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
      ad  = {isEmpty=False; s=vp.ad.s ++ adv.s} ;
      compl = vp.compl ;
      vtype = vp.vtype ;
-      p = vp.p ;
+      p = orPol adv.p vp.p ;
      isSimple = vp.isSimple
      } ;
    AdVVPSlash adv vp = {