(Ara) Add linref for CN + choose bare form for UttCN, no case

This commit is contained in:
Inari Listenmaa
2018-10-19 17:25:25 +02:00
parent 85e4a8061f
commit 4b2c706bcd
3 changed files with 16 additions and 8 deletions
+1 -1
View File
@@ -15,7 +15,7 @@ concrete PhraseAra of Phrase = CatAra ** open
UttAP ap = {s = ResAra.uttAP ap} ; --IL
UttCard c = {s = ResAra.uttNum c} ; --IL
UttCN cn = {s = \\_ => cn.s ! Sg ! Def ! Nom} ; --IL
UttCN cn = {s = ResAra.uttCN cn } ; --IL
UttNP np = {s = \\_ => np.s ! Nom} ;
UttVP vp = {s = \\g => (compVP vp).s ! {g=g ; n=Sg} ! Nom} ; --IL
UttS,