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

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