(Kor) Add UsePron and PossPron, minor fix in i_Pron

This commit is contained in:
Inari Listenmaa
2020-04-03 11:55:32 +02:00
parent 4e701884db
commit a18ffbe232
3 changed files with 4 additions and 7 deletions
+2 -5
View File
@@ -27,7 +27,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- } ;
-- : Pron -> NP ;
-- UsePron pron = pron ;
UsePron pron = pron ** {empty = []};
-- : Predet -> NP -> NP ; -- only the man
PredetNP predet np = np ** {s =
@@ -130,10 +130,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
IndefArt = mkQuant [] [] ;
-- : Pron -> Quant
-- PossPron pron =
-- let p = pron.poss ;
-- in DefArt ** {
-- } ;
PossPron pron = pron.poss ;
--2 Common nouns