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

fix typo: RVocative => RVoc

Browse Source
This commit is contained in:
krasimir
2008-06-15 11:58:18 +00:00
parent 1ab4f13416
commit d9cea4b50d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.4/bulgarian/NounBul.gf
View File

@@ -66,7 +66,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ;
DetQuant quant num = {
s = \\g,c => quant.s ! aform (gennum g num.n) (case c of {RVocative=>Indef; _=>Def}) c ++
s = \\g,c => quant.s ! aform (gennum g num.n) (case c of {RVoc=>Indef; _=>Def}) c ++
num.s ! dgenderSpecies g Indef c ;
n = num.n ;
countable = num.nonEmpty ;
@@ -74,7 +74,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ;
DetQuantOrd = \quant, num, ord -> {
s = \\g,c => quant.s ! aform (gennum g num.n) (case c of {RVocative=>Indef; _=>Def}) c ++
s = \\g,c => quant.s ! aform (gennum g num.n) (case c of {RVoc=>Indef; _=>Def}) c ++
num.s ! dgenderSpecies g Indef c ++
ord.s ! aform (gennum g num.n) Indef c ;
n = num.n ;