(Hun) Fix bugs in Cons,ConjNP
This commit is contained in:
1 parent
d7d5f4aa59
commit
3d25f3b48d
1 file changed
+6
-2
@@ -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
|
||||
|
||||
Reference in new issue
Block a user