(Hun) Fix bugs in Cons,ConjNP

This commit is contained in:
Inari Listenmaa
2020-04-23 13:42:42 +02:00
parent d7d5f4aa59
commit 3d25f3b48d

View File

@@ -31,8 +31,12 @@ lincat
lin
BaseNP x y = twoTable Case x y ** y ;
ConsNP x xs = consrTable Case comma x xs ** xs ;
ConjNP co xs = conjunctDistrTable Case co xs ** xs ** {agr = <P3,co.n>};
ConsNP x xs = xs ** consrTable Case comma x xs ;
ConjNP co xs = conjunctDistrTable Case co xs ** xs ** {
agr = <P3, case xs.agr.p2 of {
Pl => Pl ;
_ => co.n }>
} ;
-- Relative sentences
lincat