genitives in possessives in Nor (and Scand)

This commit is contained in:
aarne
2010-05-28 13:29:13 +00:00
parent 7a96cfc1b6
commit da5ecd322e
8 changed files with 11 additions and 13 deletions

View File

@@ -436,7 +436,7 @@ oper
regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ;
nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ;
makeNP x y n g =
{s = table {NPPoss _ => y ; _ => x} ; a = agrP3 g n ; p = P3 ;
{s = table {NPPoss _ _ => y ; _ => x} ; a = agrP3 g n ; p = P3 ;
lock_NP = <>} ;
mkA = overload {