From 949d03f90bc5b7b156e9059afa3bb269348b9463 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 7 Mar 2013 20:47:21 +0000
Subject: [PATCH] more fine-grained place of German negation

---
 lib/src/german/ResGer.gf  | 8 ++++++++
 lib/src/german/VerbGer.gf | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/src/german/ResGer.gf b/lib/src/german/ResGer.gf
index 65d1c95a6..431d74165 100644
--- a/lib/src/german/ResGer.gf
+++ b/lib/src/german/ResGer.gf
@@ -606,6 +606,14 @@ resource ResGer = ParamX ** open Prelude in {
     infExt = vp.infExt
 	} ;
 
+  isLightComplement : Bool -> Preposition -> Bool = \isPron,prep -> case isPron of {
+     False => False ;
+     _ => case prep.c of {
+       NPC Nom => True ;
+       _ => False
+       }
+     } ;
+
   insertAdV : Str -> VP -> VP = \adv,vp -> {
     s = vp.s ;
     a1 = \\a => adv ++ vp.a1 ! a ; -- immer nicht
diff --git a/lib/src/german/VerbGer.gf b/lib/src/german/VerbGer.gf
index 25fa15162..269d7a674 100644
--- a/lib/src/german/VerbGer.gf
+++ b/lib/src/german/VerbGer.gf
@@ -43,7 +43,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
     SlashV2A v ap = 
       insertObj (\\_ => ap.s ! APred) (predV v) ** {c2 = v.c2} ;
 
-    ComplSlash vp np = insertObjNP np.isPron (\\_ => appPrep vp.c2 np.s) vp ;
+    ComplSlash vp np = insertObjNP (isLightComplement np.isPron vp.c2) (\\_ => appPrep vp.c2 np.s) vp ;
 
     SlashVV v vp = 
       let