add VerbBul.AdVVPSlash

2013-11-14 13:36:34 +00:00
parent ec82c3af9a
commit 05cec7c67d
1 changed files with 8 additions and 0 deletions
--- a/lib/src/bulgarian/VerbBul.gf
+++ b/lib/src/bulgarian/VerbBul.gf
@@ -83,6 +83,14 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
      compl = vp.compl ;
      vtype = vp.vtype
      } ;
+    AdVVPSlash adv vp = {
+      s   = vp.s ;
+      ad  = {isEmpty=False; s=vp.ad.s ++ adv.s} ;
+      compl1 = vp.compl1 ;
+      compl2 = vp.compl2 ;
+      vtype = vp.vtype ;
+      c2 = vp.c2
+      } ;

    ReflVP slash = {
      s = slash.s ;