fix bugs in German ComplA2 and ImpVP

2011-09-20 12:16:38 +00:00
parent 896b59397a
commit 9cc57b137c
2 changed files with 5 additions and 2 deletions
--- 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
      } ;