invarA in Cze and Slo

2020-05-07 11:24:03 +02:00
parent 344b91c68f
commit e50cc6f6e4
4 changed files with 24 additions and 7 deletions
@@ -477,6 +477,11 @@ palatal : Str -> Str = \s -> case s of {
    pins : Str ;
    } ;

+invarAdjForms : Str -> AdjForms = \s -> {
+    msnom, fsnom, nsnom, msgen, fsgen, msdat, fsacc,
+    msloc, msins, fsins, ampnom, pgen, pins = s ;
+    } ;
+
 -- used in PositA but will also work in Compar and Superl by calling their record fields

 adjFormsAdjective : AdjForms -> Adjective = \afs -> {