(Hun) Fix a few small bugs with discontinous APs

2020-04-17 19:35:06 +02:00
parent f3726e9c0e
commit 70326b853a
2 changed files with 4 additions and 2 deletions
@@ -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 ;