(Hun) Squeeze further down to 7 stems

2026-06-25 11:06:28 -06:00 · 2020-04-23 16:14:31 +02:00
parent 3d25f3b48d
commit a52300205d
5 changed files with 107 additions and 94 deletions
@@ -118,12 +118,14 @@ lin
  -- : CN  -> Comp ;
  CompCN cn = UseCopula ** {
    s = \\vf => case vf of {
-                  VPres P3 n => cn.s ! n ! NomFull
+                  VPres P3 n => cn.s ! SgNom -- TODO
                             ++ cn.compl ! n ! Nom ;
-                  VPres _  n => cn.s ! n ! NomFull
+
+                  VPres _  n => cn.s ! SgNom -- TODO
                             ++ cn.compl ! n ! Nom
                             ++ copula.s ! vf ;
-                  _          => cn.s ! Sg ! NomFull
+
+                  _          => cn.s ! SgNom
                             ++ cn.compl ! Sg ! Nom
                             ++ copula.s ! vf} ;
    } ;