added a version of compoundN which combines adjective and noun into a new noun

src/bulgarian/ExtraBul.gf

@@ -5,7 +5,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
 
   lin
     PossIndefPron p = {
-      s = \\_,aform => p.gen ! (indefAForm ! aform) ;
+      s = \\_,aform => p.gen ! (indefAForm aform) ;
       nonEmpty = True;
       spec = Indef
       } ;
@@ -17,7 +17,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
     } ;
 
     ReflIndefQuant = {
-      s = \\_,aform => reflPron ! (indefAForm ! aform) ;
+      s = \\_,aform => reflPron ! (indefAForm aform) ;
       nonEmpty = True;
       spec = Indef
     } ;
@@ -66,13 +66,6 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
         APl Def        => "ñâîèòå"
       } ;
 
-    indefAForm : AForm => AForm =
-      table {
-        ASg g _       => ASg g Indef ;
-        ASgMascDefNom => ASg Masc Indef ;
-        APl _         => APl Indef
-      } ;
-
   lincat
     VPI   = {s : Agr => Str} ;
     [VPI] = {s : Bool => Ints 2 => Agr => Str} ;

src/bulgarian/MorphoFunsBul.gf

@@ -182,8 +182,13 @@ oper
                        NFVocative  => n1.s ! NFVocative    ++ n2.s ! (NF Sg Indef)
                      } ;
                  rel = \\aform => n1.rel ! aform;
-                 g = n1.g ;
+                 g = n1.g
-                 g = n1.anim
+                } ;
+    compoundN : A -> N -> N 
+      = \a,n -> lin N
+              {s   = \\nf => (a.s ! nform2aform nf n.g) ++ (n.s ! (indefNForm nf)) ;
+               rel = \\aform => a.s ! aform ++ n.rel ! indefAForm aform ;
+               g   = n.g
               } ;
   } ;
   

src/bulgarian/ResBul.gf

@@ -155,6 +155,13 @@ resource ResBul = ParamX ** open Prelude, Predef in {
         GPl    => APl spec
       } ;
 
+    indefAForm : AForm -> AForm
+      = \af -> case af of {
+                 ASg g spec    => ASg g Indef ;
+                 ASgMascDefNom => ASg Masc Indef ;
+                 APl spec      => APl Indef
+               } ;
+
     dgenderSpecies : AGender -> Species -> Role -> CardForm =
       \g,spec,role -> case <g,spec> of {
                         <AMasc a,Indef> => CFMasc Indef a ;