From 3d25f3b48d717a8ac93b027c4a601873a4d8d7ec Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 23 Apr 2020 13:42:42 +0200
Subject: [PATCH] (Hun) Fix bugs in Cons,ConjNP

---
 src/hungarian/ConjunctionHun.gf | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/ConjunctionHun.gf b/src/hungarian/ConjunctionHun.gf
index f7bac7224..f233d22c7 100644
--- 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