corrected IrregGer.wissen_V

This commit is contained in:
aarne
2010-08-24 14:40:50 +00:00
parent 9ca8b5bed1
commit f42b3349bb
3 changed files with 8 additions and 3 deletions

View File

@@ -70,6 +70,8 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
CompNP np = {s = \\_ => np.s ! NPC Nom} ;
CompAdv a = {s = \\_ => a.s} ;
-- CompCN cn
AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdV adv.s vp ;
@@ -78,6 +80,5 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
PassV2 v = insertInf (v.s ! VPastPart APred) (predV werdenPass) ;
---b UseVS, UseVQ = \v -> v ** {c2 = noPreposition Acc} ;
}