added dative case

This commit is contained in:
krasimir
2008-02-23 11:57:05 +00:00
parent 4496badef1
commit bbfb4e981c
11 changed files with 79 additions and 68 deletions

View File

@@ -18,7 +18,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! Main} ;
QuestSlash ip slash =
mkQuestion (ss (slash.c2 ++ ip.s ! Acc)) slash ;
mkQuestion (ss (slash.c2.s ++ ip.s ! slash.c2.c)) slash ;
QuestIAdv iadv cl = mkQuestion iadv cl ;