From 0f10ebd23bf7fd79d53e27c7fb2c67b42efa822c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 12 Jun 2008 18:41:33 +0000
Subject: [PATCH] fix the word order in SlashV2V

---
 lib/resource-1.4/bulgarian/VerbBul.gf | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/lib/resource-1.4/bulgarian/VerbBul.gf b/lib/resource-1.4/bulgarian/VerbBul.gf
index eab19c4a9..caafbaefd 100644
--- a/lib/resource-1.4/bulgarian/VerbBul.gf
+++ b/lib/resource-1.4/bulgarian/VerbBul.gf
@@ -45,17 +45,10 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
     SlashV2Q v q  = insertObj (\\_ => q.s ! QIndir) (predV v) ** {c2 = v.c2} ;
 
     -- test: I saw a boy whom she begged to walk 
-    SlashV2V vv vp = {
-      s   = \\t,a,p,agr,q,asp => 
-        let 
-          vv_verb = (predV vv).s ! t ! a ! p ! agr ! q ! asp ;
-          vp_verb = vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf ;
-        in vv_verb ++ vp.ad ! False ++ "да" ++ vp_verb ;
-      imp = vp.imp ;
-      ad = \\_ => [] ;
-      s2 = vp.s2 ;
-      subjRole = vp.subjRole
-      } ** {c2 = vv.c2} ;
+    SlashV2V vv vp =
+      insertObj (\\agr => vp.ad ! False ++ "да" ++ vp.s ! Pres ! Simul ! Pos ! agr ! False ! Perf)
+                (predV vv)
+         ** {c2 = vv.c2} ;  ---- FIXME: agreement with obj.a 
 
     -- test: I saw a car whom she wanted to buy
     SlashVV vv vp = {