(Hun) Fix bugs in Cons,ConjNP

2020-04-23 13:42:42 +02:00
parent d7d5f4aa59
commit 3d25f3b48d
1 changed files with 6 additions and 2 deletions
--- a/src/hungarian/ConjunctionHun.gf
+++ b/src/hungarian/ConjunctionHun.gf
@@ -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