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/scandinavian/SentenceScand.gf
+++ b/lib/resource-1.0/scandinavian/SentenceScand.gf
@@ -38,6 +38,6 @@ incomplete concrete SentenceScand of Sentence =

    EmbedS  s  = {s = conjThat ++ s.s ! Sub} ;
    EmbedQS qs = {s = qs.s ! QIndir} ;
-    EmbedVP vp = {s = infVP vp (agrP3 utrum Sg)} ; --- agr
+    EmbedVP vp = {s = infMark ++ infVP vp (agrP3 utrum Sg)} ; --- agr

 }