(Hun) Fix a few small bugs with discontinous APs

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

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 ;