allow for negated CAdv

This commit is contained in:
Krasimir Angelov
2018-07-15 10:55:03 +02:00
parent 4c203cfd81
commit 19e8bab1a4
6 changed files with 16 additions and 15 deletions
+1 -1
View File
@@ -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
} ;