added Question.AdvIAdv and correcponding entry of mkIAdv in API

This commit is contained in:
aarne
2010-04-29 05:55:59 +00:00
parent 97c2575f0f
commit dc58a51c4f
12 changed files with 32 additions and 4 deletions

View File

@@ -59,5 +59,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
nonEmpty = num.nonEmpty
} ;
AdvIAdv i a = {s = i.s ++ a.s} ;
CompIP ip = {s = ip.s ! RSubj} ;
}