Gender in English Agr

This commit is contained in:
aarne
2008-04-21 15:56:50 +00:00
parent d1b9f03fe4
commit 8b118840b4
11 changed files with 68 additions and 40 deletions

View File

@@ -14,7 +14,7 @@ concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {
} ;
QuestVP qp vp =
let cl = mkClause (qp.s ! Nom) {n = qp.n ; p = P3} vp
let cl = mkClause (qp.s ! Nom) (agrP3 qp.n) vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ;
QuestSlash ip slash =