(Hun) Add case to A and AP

2026-06-25 19:16:28 -06:00 · 2020-04-26 13:30:00 +02:00
parent 5b8e2eeb23
commit d7e10e843b
8 changed files with 44 additions and 40 deletions
@@ -110,9 +110,9 @@ lin
  -- : AP  -> Comp ;
  CompAP ap = UseCopula ** {
    s = \\vf => case vf of {
-                  VPres P3 n => ap.s ! n ;
-                  VPres _  n => ap.s ! n  ++ copula.s ! vf ;
-                  _         => ap.s ! Sg ++ copula.s ! vf}
+                  VPres P3 n => ap.s ! n ! Nom ;
+                  VPres _  n => ap.s ! n ! Nom ++ copula.s ! vf ;
+                  _         => ap.s ! Sg ! Nom ++ copula.s ! vf}
             ++ ap.compar ;
    } ;