QForm is more appropriate parameter than Species in IAdv and IP

This commit is contained in:
krasimir
2008-06-15 12:38:12 +00:00
parent 89bd8eeb74
commit 49eefbb2ad
6 changed files with 25 additions and 25 deletions

View File

@@ -15,7 +15,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestVP ip vp = {
s = \\t,a,b,qform =>
(mkClause (ip.s ! RSubj ! (case qform of {QDir=>Indef; QIndir=>Def})) {gn = ip.gn ; p = P3} vp).s ! t ! a ! b ! Main
(mkClause (ip.s ! RSubj ! qform) {gn = ip.gn ; p = P3} vp).s ! t ! a ! b ! Main
} ;
QuestSlash ip slash =