infinitive marks in EmbedVP, bugs noticed

2006-01-24 21:51:17 +00:00
parent 62e4090739
commit 7cce7e6462
5 changed files with 5 additions and 5 deletions
--- a/lib/resource-1.0/german/SentenceGer.gf
+++ b/lib/resource-1.0/german/SentenceGer.gf
@@ -35,6 +35,6 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {

    EmbedS  s  = {s = conjThat ++ s.s ! Sub} ;
    EmbedQS qs = {s = qs.s ! QIndir} ;
-    EmbedVP vp = {s = (vp.s ! agrP3 Sg ! VPInfinit Simul).inf} ; --- agr
+    EmbedVP vp = {s = "zu" ++ (vp.s ! agrP3 Sg ! VPInfinit Simul).inf} ; --- agr ---- compl

 }