From d4d33fc5edc5221c3d06826018c4f8d969b5485c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 13 Jun 2008 19:43:03 +0000
Subject: [PATCH] fix the object-complement agreement in ComplSlash

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

diff --git a/lib/resource-1.4/bulgarian/ResBul.gf b/lib/resource-1.4/bulgarian/ResBul.gf
index 1f99ea381..08d11739a 100644
--- a/lib/resource-1.4/bulgarian/ResBul.gf
+++ b/lib/resource-1.4/bulgarian/ResBul.gf
@@ -291,14 +291,6 @@ 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 bd7b0bb14..792dafbb3 100644
--- a/lib/resource-1.4/bulgarian/VerbBul.gf
+++ b/lib/resource-1.4/bulgarian/VerbBul.gf
@@ -79,7 +79,13 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
 ---- END guesses by AR
 
-    ComplSlash vp np = insertObjPre (\\_ => vp.c2.s ++ np.s ! RObj vp.c2.c) vp ;
+    ComplSlash slash np = {
+      s   = slash.s ;
+      imp = slash.imp ;
+      ad  = slash.ad ;
+      s2 = \\_ => slash.c2.s ++ np.s ! RObj slash.c2.c ++ slash.s2 ! np.a ;
+      subjRole = slash.subjRole
+      } ;
 
     UseComp comp = insertObj comp.s (predV verbBe) ;