diff options
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/scandinavian/NounScand.gf | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/next-lib/src/scandinavian/NounScand.gf b/next-lib/src/scandinavian/NounScand.gf index 81516ef3a..dd6c39742 100644 --- a/next-lib/src/scandinavian/NounScand.gf +++ b/next-lib/src/scandinavian/NounScand.gf @@ -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 |