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

@@ -92,6 +92,8 @@ concrete QuestionGer of Question = CatGer ** open ResGer in {
s = \\g,c => idet.s ! n ! g ! c ++ num.s!g!c ;
n = n
} ;
AdvIAdv i a = {s = i.s ++ a.s} ;
CompIAdv a = {s = \\_ => a.s} ;