From 9cc57b137cbcdc9bbb65d3331e1bd75eb9678f3a Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 20 Sep 2011 12:16:38 +0000
Subject: [PATCH] fix bugs in German ComplA2 and ImpVP

---
 lib/src/german/AdjectiveGer.gf | 5 ++++-
 lib/src/german/SentenceGer.gf  | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/src/german/AdjectiveGer.gf b/lib/src/german/AdjectiveGer.gf
index ac0ced3f5..8f36afd8e 100644
--- a/lib/src/german/AdjectiveGer.gf
+++ b/lib/src/german/AdjectiveGer.gf
@@ -28,7 +28,10 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
 -- $SuperlA$ belongs to determiner syntax in $Noun$.
 
     ComplA2 a np = {
-      s = \\af => a.s ! Posit ! af ++ appPrep a.c2 np.s ; 
+      s = table {
+        APred => a.s ! Posit ! APred ++ appPrep a.c2 np.s ; 
+        af => appPrep a.c2 np.s ++ a.s ! Posit ! af
+        } ; 
       isPre = True
       } ;
 
diff --git a/lib/src/german/SentenceGer.gf b/lib/src/german/SentenceGer.gf
index 2cfc0343d..935ba416a 100644
--- a/lib/src/german/SentenceGer.gf
+++ b/lib/src/german/SentenceGer.gf
@@ -20,7 +20,7 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer, Prelude in {
           inf  = vp.inf ++ verb.inf ;
         in
         verb.fin ++ ps.p2 ++ 
-        vp.n2 ! agr ++ vp.a1 ! pol ++ vp.a2 ++ inf ++ vp.ext
+        vp.n0 ! agr ++ vp.n2 ! agr ++ vp.a1 ! pol ++ vp.a2 ++ inf ++ vp.ext
     } ;
 
     SlashVP np vp =