CompoundN in ExtendSwe and ExtendBul

src/bulgarian/AllBul.gf

@@ -1,9 +1,8 @@
 --# -path=.:../abstract:../common:../prelude:../api
---# -coding=cp1251
 
-concrete AllBul of AllBulAbs = 
+concrete AllBul of AllBulAbs =
   LangBul,
-  ExtraBul
+  ExtendBul
   ** {
-  flags coding=cp1251 ;
+
 } ;

src/bulgarian/AllBulAbs.gf

@@ -1,9 +1,8 @@
 --# -path=.:../abstract:../common:prelude
---# -coding=cp1251
 
 abstract AllBulAbs = 
   Lang,
-  ExtraBulAbs
+  Extend
   ** {
-  flags coding=cp1251 ;
+
 } ;

src/bulgarian/ExtendBul.gf

@@ -0,0 +1,18 @@
+--# -path=.:../abstract:../common:prelude
+concrete ExtendBul of Extend = CatBul ** open ResBul in {
+
+lin
+  CompoundN n1 n2 = 
+    let aform = ASg (case n2.g of {
+                       AMasc _       => Masc ;
+                       AFem          => Fem ;
+                       ANeut         => Neut
+                    }) Indef
+    in {
+         s   = \\nf => n1.rel ! nform2aform nf n2.g ++ n2.s ! (indefNForm nf) ;
+         rel = \\af => n1.rel ! aform ++ n2.s ! NF Sg Indef ;
+         g   = n2.g
+    } ;
+
+}
+