diff options
Diffstat (limited to 'examples/phrasebook/SentencesBul.gf')
| -rw-r--r-- | examples/phrasebook/SentencesBul.gf | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/examples/phrasebook/SentencesBul.gf b/examples/phrasebook/SentencesBul.gf index 4f6d6317f..1b5d453c7 100644 --- a/examples/phrasebook/SentencesBul.gf +++ b/examples/phrasebook/SentencesBul.gf @@ -29,8 +29,14 @@ lin YouFamMale = mkPerson youSg_Pron ; lin ACitizen p cit = let noun : N = case p.name.a.gn of { - R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf; 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; g = R.AMasc R.Human} + R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf; + rel = cit.s2.s; + 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; + g = R.AMasc R.Human + } } ; in mkCl p.name noun ; |