replaced German Agr record by an algebraic type

This commit is contained in:
aarne
2009-12-16 15:45:29 +00:00
parent 4f749d8bae
commit 403bec9f16
6 changed files with 51 additions and 34 deletions

View File

@@ -10,7 +10,7 @@ concrete ConjunctionGer of Conjunction =
ConjAdv conj ss = conjunctDistrSS conj ss ;
ConjNP conj ss = conjunctDistrTable Case conj ss ** {
a = {g = Fem ; n = conjNumber conj.n ss.a.n ; p = ss.a.p}
a = Ag Fem (conjNumber conj.n (numberAgr ss.a)) (personAgr ss.a)
} ;
ConjAP conj ss = conjunctDistrTable AForm conj ss ** {