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

Scandinavian indefinite modified form fix

Browse Source
This commit is contained in:
aarne
2008-11-05 22:00:08 +00:00
parent bd6fb074aa
commit 53e84610f1
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
next-lib/src/scandinavian/NounScand.gf
View File

@@ -52,8 +52,14 @@ incomplete concrete NounScand of Noun =
det = quant.det det = quant.det
} ; } ;
DetQuant quant num = { DetQuant quant num =
s = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++ let
md : Bool -> Bool = \b -> case quant.det of {
DDef _ => orB b num.isDet ;
_ => False
}
in {
s = \\b,g => quant.s ! num.n ! b ! md b ! g ++
num.s ! g ; num.s ! g ;
n = num.n ; n = num.n ;
det = quant.det det = quant.det