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 49abf31256
commit c5fe59ce50
12 changed files with 32 additions and 4 deletions

View File

@@ -49,6 +49,8 @@ concrete QuestionEng of Question = CatEng ** open ResEng, Prelude in {
n = num.n
} ;
AdvIAdv i a = ss (i.s ++ a.s) ;
CompIAdv a = a ;
CompIP p = ss (p.s ! Nom) ;