fixed the case of substantival possessives in Eng

This commit is contained in:
aarne
2013-10-19 10:07:26 +00:00
parent 98611c1401
commit 7e921934a0
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
} ;
a = toAgr n p g ;
sp = regGenitiveS mine
sp = table {
Nom => mine ;
_ => genitiveS mine
}
} ;
} ;