replaced German Agr record by an algebraic type

2009-12-16 15:45:29 +00:00
parent 32f6151791
commit 19c1a8cba8
6 changed files with 51 additions and 34 deletions
--- a/src/german/ConjunctionGer.gf
+++ b/src/german/ConjunctionGer.gf
@@ -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 ** {