add AdvCN

2008-02-23 12:02:09 +00:00
parent bbfb4e981c
commit 831a2d97ea
1 changed files with 5 additions and 1 deletions
--- a/lib/resource/bulgarian/NounBul.gf
+++ b/lib/resource/bulgarian/NounBul.gf
@@ -104,6 +104,10 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
      s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;
      g = cn.g
      } ;
-      
+    AdvCN cn ad = {
+      s = \\nf => cn.s ! nf ++ ad.s ;
+      g = cn.g
+    } ;
+
    SentCN cn sc = {s = \\nf => cn.s ! nf ++ sc.s; g=cn.g} ;
 }