From 059cf3ffce48327fc57ff3b7389daf90c03e41d3 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 14 Nov 2013 13:36:34 +0000
Subject: [PATCH] add VerbBul.AdVVPSlash

---
 src/bulgarian/VerbBul.gf | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/bulgarian/VerbBul.gf b/src/bulgarian/VerbBul.gf
index 773476fc0..785d35c85 100644
--- a/src/bulgarian/VerbBul.gf
+++ b/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 ;