a majour refactoring to support clitic pronouns

This commit is contained in:
Krasimir Angelov
2018-07-04 13:01:06 +02:00
parent 00476ae386
commit 7bfd6199d6
2 changed files with 2 additions and 2 deletions

View File

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