GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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
} ;
DetQuant quant num = {
s = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++
DetQuant quant num =
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 ;
n = num.n ;
det = quant.det