mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
change the quant and numeral orders in DetPl
This commit is contained in:
@@ -40,8 +40,8 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
|
||||
} ;
|
||||
|
||||
DetPl quant num ord = {
|
||||
s = \\g,c => quant.s ! gennum g num.n ++
|
||||
num.s ! dgenderSpecies g quant.spec c ++
|
||||
s = \\g,c => num.s ! dgenderSpecies g quant.spec c ++
|
||||
quant.s ! gennum g num.n ++
|
||||
ord.s ! aform (gennum g num.n) (case num.nonEmpty of {False => quant.spec; _ => Indef}) c ;
|
||||
n = num.n ;
|
||||
countable = num.nonEmpty ;
|
||||
|
||||
Reference in New Issue
Block a user