corrections prompted by Janna's examples in resource

2007-12-19 20:53:29 +00:00
parent e2185ffb38
commit 5cb91cd027
8 changed files with 27 additions and 23 deletions
--- a/lib/resource/german/ResGer.gf
+++ b/lib/resource/german/ResGer.gf
@@ -581,7 +581,7 @@ resource ResGer = ParamX ** open Prelude in {
  infVP : Bool -> VP -> ((Agr => Str) * Str * Str) = \isAux, vp ->
    <
     \\agr => vp.n2 ! agr ++  vp.a2,
-     (vp.s ! (notB isAux) ! agrP3 Sg ! VPInfinit Simul).inf,
+     vp.a1 ! Pos ++ (vp.s ! (notB isAux) ! agrP3 Sg ! VPInfinit Simul).inf,
     vp.inf ++ vp.ext
    > ;