From 3241b03d8a8c94dff9e97b8bbf41d84ddadac53e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 11 Jun 2008 09:30:38 +0000
Subject: [PATCH] fix the word order in SlashV2A in bulgarian-1.4

---
 lib/resource-1.4/bulgarian/ResBul.gf  | 8 ++++++++
 lib/resource-1.4/bulgarian/VerbBul.gf | 4 ++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/resource-1.4/bulgarian/ResBul.gf b/lib/resource-1.4/bulgarian/ResBul.gf
index 6667ea28c..00da5227c 100644
--- a/lib/resource-1.4/bulgarian/ResBul.gf
+++ b/lib/resource-1.4/bulgarian/ResBul.gf
@@ -291,6 +291,14 @@ resource ResBul = ParamX ** open Prelude in {
       subjRole = vp.subjRole
       } ;
 
+    insertObjPre : (Agr => Str) -> VP -> VP = \obj,vp -> {
+      s = vp.s ;
+      imp = vp.imp ;
+      ad  = vp.ad ;
+      s2 = \\a => obj ! a ++ vp.s2 ! a ;
+      subjRole = vp.subjRole
+      } ;
+
     auxBe : VTable =
       table {
         VPres      Sg P1  => "съм" ; 
diff --git a/lib/resource-1.4/bulgarian/VerbBul.gf b/lib/resource-1.4/bulgarian/VerbBul.gf
index fba1c3db7..eab19c4a9 100644
--- a/lib/resource-1.4/bulgarian/VerbBul.gf
+++ b/lib/resource-1.4/bulgarian/VerbBul.gf
@@ -33,7 +33,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
 
     SlashV2A v ap = 
-      insertObj (\\a => v.c2.s ++ ap.s ! aform a.gn Indef (RObj Acc)) 
+      insertObj (\\a => ap.s ! aform a.gn Indef (RObj Acc)) 
         (predV v) ** {c2 = v.c2} ;  ---- FIXME: agreement with obj.a 
 
     ---- AR guessed these five, copying from Compl(VS,VQ,VV)
@@ -86,7 +86,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
 ---- END guesses by AR
 
-    ComplSlash vp np = insertObj (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ;
+    ComplSlash vp np = insertObjPre (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ;
 
     UseComp comp = insertObj comp.s (predV verbBe) ;