(Som) Add QuestSlash + make it possible for IPs to contract with stm

This commit is contained in:
Inari Listenmaa
2019-09-10 16:54:19 +02:00
parent 4f9927d12b
commit 67ac5ae5e3
5 changed files with 37 additions and 13 deletions
+1 -1
View File
@@ -23,7 +23,7 @@ concrete CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
-- Constructed in QuestionSom.
QCl = ResSom.QClause ;
IP = ResSom.NounPhrase ;
IP = ResSom.NounPhrase ** {contractSTM : Bool} ;
IComp = SS ; -- interrogative complement of copula e.g. "where"
IDet = ResSom.Determiner ; -- interrogative determiner e.g. "how many"
IQuant = ResSom.Quant ; -- interrogative quantifier e.g. "which"