msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

German negation place

Browse Source
This commit is contained in:
aarne
2006-01-31 17:39:15 +00:00
parent 5ae834c9c1
commit ed71566bd9
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/german/ResGer.gf
View File

@@ -373,8 +373,8 @@ resource ResGer = ParamGer ** open Prelude in {
let
verb = vp.s ! agr ! VPFinite t a ;
neg = vp.a1 ! b ;
obj = vp.n2 ! agr ++ vp.a2 ;
compl = obj ++ neg ;
obj = vp.n2 ! agr ;
compl = obj ++ neg ++ vp.a2 ;
inf = vp.inf ++ verb.inf ;
extra = vp.ext ;
inffin = case <a,vp.isAux> of {