implemented compound nounds which work like adverbs

This commit is contained in:
Krasimir Angelov
2018-05-30 23:04:40 +02:00
parent 44e387ec16
commit 10e10298d9

View File

@@ -30,11 +30,11 @@ lin ACitizen p cit =
let noun : N
= case p.name.a.gn of {
R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf;
rel = cit.s2.s;
rel = cit.s2.s; relPost = False;
g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut}
} ;
R.GPl => lin N {s = \\nf => cit.s1 ! R.Masc ! nf;
rel = cit.s2.s;
rel = cit.s2.s; relPost = False;
g = R.AMasc R.Human
}
} ;