fixes in Finnish passives and pronouns ; pass imperf still missing

This commit is contained in:
aarne
2006-03-06 22:27:23 +00:00
parent 5e70830f3c
commit 21202641a1
8 changed files with 37 additions and 21 deletions

View File

@@ -10,7 +10,7 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
QuestVP ip vp =
let
cl = mkClause (ip.s ! vp.sc) (agrP3 ip.n) vp
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) vp.sc) (agrP3 ip.n) vp
in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ;