Finnish negation particle stored in VP for vowel harmony

This commit is contained in:
aarne
2008-06-22 18:33:15 +00:00
parent 82186e38b7
commit eb72aeb20a
7 changed files with 40 additions and 20 deletions

View File

@@ -31,7 +31,7 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
QuestIComp icomp np = {
s = \\t,a,p =>
let
vp = predV (verbOlla ** {sc = NPCase Nom}) ;
vp = predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}) ;
cl = mkClause (subjForm np vp.sc) np.a vp ;
in
icomp.s ! np.a ++ cl.s ! t ! a ! p ! SDecl