more fine-grained place of German negation

This commit is contained in:
aarne
2013-03-07 20:47:21 +00:00
parent 55b78a9af2
commit 93ce3c12f9
2 changed files with 9 additions and 1 deletions
+1 -1
View File
@@ -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