a bugfix for building questions in the Bulgarian resource grammar

This commit is contained in:
kr.angelov
2012-12-13 15:52:55 +00:00
parent cc7ea9260b
commit eebd9e92c9

View File

@@ -27,7 +27,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestIAdv iadv cl = mkQuestion iadv cl ;
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! RObj Acc) np.a (predV verbBe)) ;
mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
PrepIP p ip = {s = \\qform => p.s ++ case p.c of {Dat=>"íà";_=>[]} ++ ip.s ! RSubj ! qform} ;