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/english/SentenceEng.gf
+++ b/lib/resource-1.0/english/SentenceEng.gf
@@ -36,6 +36,6 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {

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

 }