msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fix bug with numeral 1 in DetQuant

Browse Source
This commit is contained in:
Inari Listenmaa
2017-12-28 13:18:03 +02:00
parent 9cdc92c552
commit 4c7d04444a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/basque/NounEus.gf
View File

@@ -94,14 +94,14 @@ concrete NounEus of Noun = CatEus ** open ResEus, Prelude in {
-- : Quant -> Num -> Det ;
DetQuant quant num = quant **
{ s = \\c,ph => case <num.isNum,num.n> of { --numeral 1 ("bat") goes after NP!
<True,Sg> => num.s ++ quant.s ! num.n ! c ! FinalCons ;
{ s = \\c,ph => case <num.isNum,num.n> of {
<True,Sg> => num.s ; --numeral 1 ("bat") goes after NP, and no other article
_ => quant.s ! num.n ! c ! ph
} ;
nbr = num.n ;
pref = case num.n of {
Sg => quant.pref ;
Pl => quant.pref ++ num.s
Sg => quant.pref ; -- empty in case of numeral 1
Pl => quant.pref ++ num.s -- the numeral itself in case of other numerals
} ;
isDef = orB quant.isDef num.isNum } ;