fix agreement

This commit is contained in:
Krasimir Angelov
2026-10-03 11:22:01 +02:00
parent ed55dfa22e
commit 23e0496829
+2 -2
View File
@@ -34,14 +34,14 @@ concrete ConjunctionCze of Conjunction = CatCze **
s2 = y.s ; s2 = y.s ;
prep1 = x.prep ; prep1 = x.prep ;
prep2 = y.prep ; prep2 = y.prep ;
a = y.a ; m = x.m ; a = x.a
} ; -- clitics disappear ---- Agr TODO } ; -- clitics disappear ---- Agr TODO
ConsNP x xs = { ConsNP x xs = {
s1 = \\c => x.s ! c ++ comma ++ xs.s1 ! c ; s1 = \\c => x.s ! c ++ comma ++ xs.s1 ! c ;
s2 = xs.s2 ; s2 = xs.s2 ;
prep1 = \\c => x.prep ! c ++ comma ++ xs.prep1 ! c ; prep1 = \\c => x.prep ! c ++ comma ++ xs.prep1 ! c ;
prep2 = xs.prep2 ; prep2 = xs.prep2 ;
a = xs.a ; m = x.m ; ---- a = x.a ;
} ; } ;
BaseS x y = {s1 = x ; s2 = y.s} ; BaseS x y = {s1 = x ; s2 = y.s} ;