(Hun) Add new QuantType param to Quants

This commit is contained in:
Inari Listenmaa
2020-04-23 19:56:10 +02:00
parent f3fd085318
commit 4dc5b53c3c
3 changed files with 18 additions and 6 deletions
+2 -2
View File
@@ -89,13 +89,13 @@ oper
Quant : Type = BaseQuant ** {
s, -- form that comes before noun: "{this} car"
sp : Number => Case => Str ; -- independent form, "I like {this}" (DetNP)
isIndefArt : Bool ; -- standard trick to prevent "a one car"
qt : QuantType ;
} ;
mkQuant : (s,sp : Str) -> Quant = \s,sp -> {
s = mkCaseNoun s ;
sp = mkCaseNoun sp ;
isIndefArt = False ;
qt = Article ;
objdef = Def ;
caseagr = True ;
} ;