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
} ;
a = toAgr n p g ;
sp = regGenitiveS mine
sp = table {
Nom => mine ;
_ => genitiveS mine
}
} ;
} ;