From 70326b853a42d599d4a17aea5d0d8e24846034c9 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 17 Apr 2020 19:35:06 +0200
Subject: [PATCH] (Hun) Fix a few small bugs with discontinous APs

---
 src/hungarian/ConjunctionHun.gf | 4 +++-
 src/hungarian/NounHun.gf        | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/ConjunctionHun.gf b/src/hungarian/ConjunctionHun.gf
index f018788c0..ddf556728 100644
--- a/src/hungarian/ConjunctionHun.gf
+++ b/src/hungarian/ConjunctionHun.gf
@@ -20,7 +20,9 @@ lin
     let xCont : AP = x ** {s = \\n => x.s ! n ++ x.compar} ;
         yCont : AP = y ** {s = \\n => y.s ! n ++ y.compar} ;
      in twoTable Number xCont yCont ;
-  ConsAP = consrTable Number comma ;
+  ConsAP a as =
+    let aCont : AP = a ** {s = \\n => a.s ! n ++ a.compar} ;
+     in consrTable Number comma aCont as ;
   ConjAP co as = conjunctDistrTable Number co as ** {compar = []} ;
 
 -- Noun phrases
diff --git a/src/hungarian/NounHun.gf b/src/hungarian/NounHun.gf
index 258ad3cb6..d26722630 100644
--- a/src/hungarian/NounHun.gf
+++ b/src/hungarian/NounHun.gf
@@ -169,7 +169,7 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
 
   -- : AP -> CN -> CN
   AdjCN ap cn = cn ** {
-    s = \\n,c => ap.s ! Sg ++ cn.s ! n ! c
+    s = \\n,c => ap.s ! Sg ++ cn.s ! n ! c ++ ap.compar
     } ;
 
   -- : CN -> RS  -> CN ;