added Question.AdvIAdv and correcponding entry of mkIAdv in API

2010-04-29 05:55:59 +00:00
parent 49abf31256
commit c5fe59ce50
12 changed files with 32 additions and 4 deletions
--- a/lib/src/finnish/QuestionFin.gf
+++ b/lib/src/finnish/QuestionFin.gf
@@ -90,6 +90,8 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
      isNum = isn
      } ;

+    AdvIAdv i a = {s = i.s ++ a.s} ;
+
    CompIAdv a = {s = \\_ => a.s} ;
    CompIP ip = {s = \\_ => ip.s ! NPCase Nom} ;