fixed the case of substantival possessives in Eng

2013-10-19 10:07:26 +00:00
parent 98611c1401
commit 7e921934a0
2 changed files with 5 additions and 2 deletions
@@ -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} ;