From ebbd512ee1097a2ef8cd84f515eec7c2ba17c22e Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 28 Jun 2018 15:32:58 +0200
Subject: [PATCH] added compoundV operation

---
 src/bulgarian/MorphoFunsBul.gf | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/bulgarian/MorphoFunsBul.gf b/src/bulgarian/MorphoFunsBul.gf
index cd79cb678..ed1e5000b 100644
--- a/src/bulgarian/MorphoFunsBul.gf
+++ b/src/bulgarian/MorphoFunsBul.gf
@@ -68,7 +68,7 @@ oper
     lock_V=<>
     } ;
 
-  actionV : VTable -> VTable -> V = dualV ;
+  actionV : VTable -> VTable -> V = dualV ;  -- deprecated
 
   singleV : VTable -> V ;
   singleV vtable = { 
@@ -83,7 +83,16 @@ oper
     lock_V=<>
     } ;
 
-  stateV : VTable -> V = singleV ;
+  stateV : VTable -> V = singleV ;  -- deprecated
+  
+  compoundV : V -> Str -> V ;
+  compoundV v adv = {
+    s = \\asp,vform => v.s ! asp ! vform ++ adv ;
+    n = \\nform => v.n ! nform ++ adv ;
+    vtype = VNormal;
+    lock_V=<>
+    } ;
+
 
 --3 Zero-place verbs
 --