1
0
forked from GitHub/gf-core

IP now depends on the Case, i.e. koi/kogo

This commit is contained in:
krasimir
2008-02-22 14:08:01 +00:00
parent ec4edf4524
commit 038bb07c33
5 changed files with 17 additions and 14 deletions

View File

@@ -22,10 +22,10 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV auxBe)) ;
PrepIP p ip = {s = p.s ++ ip.s} ;
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ;
AdvIP ip adv = {
s = ip.s ++ adv.s ;
s = \\c => ip.s ! c ++ adv.s ;
gn = ip.gn
} ;