use linCN in UttCN

This commit is contained in:
Inari Listenmaa
2017-10-04 14:47:30 +02:00
parent e056836472
commit a4fce19eb7

View File

@@ -18,7 +18,7 @@ concrete PhraseEus of Phrase = CatEus ** open Prelude, ResEus in {
UttNP np = { s = np.s ! Abs} ; UttNP np = { s = np.s ! Abs} ;
UttVP vp = { s = linVPPrc vp } ; UttVP vp = { s = linVPPrc vp } ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! Hau ++ artDef ! Sg ! Abs ! n.ph } ; UttCN n = {s = linCNDef n } ;
UttCard n = n ; UttCard n = n ;
UttAP ap = { s = ap.s ! Hau } ; UttAP ap = { s = ap.s ! Hau } ;
UttInterj i = i ; UttInterj i = i ;