Make adjectives depend on agreement; Fix reflexives

This commit is contained in:
Inari Listenmaa
2017-10-02 15:22:11 +02:00
parent 9c77f9d990
commit 5b91023e0e
8 changed files with 42 additions and 26 deletions

View File

@@ -20,7 +20,7 @@ concrete PhraseEus of Phrase = CatEus ** open Prelude, ResEus in {
UttAdv adv = adv ;
UttCN n = {s = n.s ! Hau ++ artDef ! Sg ! Abs ! n.ph } ;
UttCard n = n ;
UttAP ap = ap ;
UttAP ap = { s = ap.s ! Hau } ;
UttInterj i = i ;
NoPConj = {s = []} ;