infinitive marks in EmbedVP, bugs noticed

This commit is contained in:
aarne
2006-01-24 21:51:17 +00:00
parent 62e4090739
commit 7cce7e6462
5 changed files with 5 additions and 5 deletions

View File

@@ -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
}