fixed the case of substantival possessives in Eng

This commit is contained in:
aarne
2013-10-19 10:07:26 +00:00
parent a8fcbef850
commit 075796dbe5
2 changed files with 5 additions and 2 deletions

View File

@@ -40,7 +40,10 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
NCase Gen => my NCase Gen => my
} ; } ;
a = toAgr n p g ; a = toAgr n p g ;
sp = regGenitiveS mine sp = table {
Nom => mine ;
_ => genitiveS mine
}
} ; } ;
} ; } ;

View File

@@ -61,7 +61,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
PossPron p = { PossPron p = {
s = \\_,_ => p.s ! NCase Gen ; s = \\_,_ => p.s ! NCase Gen ;
sp = \\_,_,c => p.sp ! Gen sp = \\_,_,c => p.sp ! npcase2case c
} ; } ;
NumSg = {s = \\c => []; n = Sg ; hasCard = False} ; NumSg = {s = \\c => []; n = Sg ; hasCard = False} ;