fix bugs in German ComplA2 and ImpVP

This commit is contained in:
aarne
2011-09-20 12:16:38 +00:00
parent 896b59397a
commit 9cc57b137c
2 changed files with 5 additions and 2 deletions

View File

@@ -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
} ;