fixed the place of negation in German passives

This commit is contained in:
aarne
2006-03-06 20:58:11 +00:00
parent cf2d695f74
commit a2d2e268d3
3 changed files with 4 additions and 4 deletions

View File

@@ -481,12 +481,12 @@ resource ResGer = ParamX ** open Prelude in {
} ;
insertInf : Str -> VP -> VP = \inf,vp -> {
s = \\a,vf => {fin = (vp.s ! a ! vf).fin ; inf = inf ++ (vp.s ! a ! vf).inf} ;
s = vp.s ;
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ;
isAux = vp.isAux ; ----
inf = vp.inf ; --- ++ inf ;
inf = inf ++ vp.inf ;
ext = vp.ext
} ;