drop the copular sufix for P3 Pl

2026-06-29 18:48:37 -06:00 · 2020-03-30 12:34:44 +02:00
parent e685d5038e
commit 4a50152e17
3 changed files with 7 additions and 8 deletions
@@ -49,9 +49,9 @@ concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur
    CompAP ap = lin VP {
      s = table {
            VPres   agr => ap.s ! agr.n ! Nom ++ 
-                           case agr of {
-                             {n=Sg; p=P3} => [] ;
-                             _            => suffixStr ap.h (verbSuffixes ! agr)
+                           case agr.p of {
+                             P3 => [] ;
+                             _  => suffixStr ap.h (verbSuffixes ! agr)
                           } ;
            VProg   agr => ap.s ! agr.n ! Nom ;
            VPast   agr => ap.s ! agr.n ! Nom ++