(Som) bugfix in QuestIAdv: add subject also when STM is negative

This commit is contained in:
Inari Listenmaa
2019-09-10 15:11:41 +02:00
parent 1c367530f0
commit d01aec2d64

View File

@@ -27,10 +27,12 @@ concrete QuestionSom of Question = CatSom ** open
sbj = clRaw.subj ;
cl : ClSlash = clRaw ** {
stm = \\clt,p => case <clt,p> of {
-- IAdv is focused
-- IAdv is focused with baa, and subject comes after
<_,Pos> => "baa" ++ sbj.pron ++ sbj.noun;
_ => clRaw.stm ! clt ! p } ;
subj = {noun, pron = [] ; isP3 = True}}
-- TODO how do negative questions work
_ => clRaw.stm ! Question ! p ++ sbj.pron ++ sbj.noun } ;
subj = sbj ** {noun, pron = []} -- to force subject after baa
} ;
in cl2qcl cl ;
-- : IComp -> NP -> QCl ; -- where is John?