allow for negated CAdv

2018-07-15 10:55:03 +02:00
parent 4c203cfd81
commit 19e8bab1a4
6 changed files with 16 additions and 15 deletions
@@ -21,7 +21,7 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
      } ;

    CAdvAP ad ap np = {
-      s = \\a => ad.s ++ ap.s ! a ++ ad.p ++ np.s ! npNom ; 
+      s = \\a => ad.s ! Pos ++ ap.s ! a ++ ad.p ++ np.s ! npNom ; 
      isPre = False
      } ;