From 07eaf86ab44b45f2c3cca83ca74690c970b19577 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 20 Feb 2013 15:55:53 +0000
Subject: [PATCH] fixed agreement to object in Romance SlashVP

---
 lib/src/romance/SentenceRomance.gf | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/src/romance/SentenceRomance.gf b/lib/src/romance/SentenceRomance.gf
index 9c9a707e8..56742fe26 100644
--- a/lib/src/romance/SentenceRomance.gf
+++ b/lib/src/romance/SentenceRomance.gf
@@ -16,13 +16,13 @@ incomplete concrete SentenceRomance of Sentence =
 
     SlashVP np v2 = 
       -- agreement decided afterwards: la fille qu'il a trouvée
-      {s = \\_ => 
+      {s = \\a => 
           let 
-            vp = v2
-----e            vp = case <v2.c2.c, v2.c2.isDir> of {
-----              <Acc,True> => insertAgr ag v2 ;
-----              _ => v2
-----e              }
+-----            vp = v2
+            vp = case <v2.c2.c, v2.c2.isDir> of {
+              <Acc,True> => insertAgr a v2 ;
+             _ => v2
+              }
           in (mkClausePol np.isNeg (np.s ! Nom).comp False      np.isPol np.a vp).s ;
 -----     in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
        c2 = v2.c2