diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-05 22:00:08 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-05 22:00:08 +0000 |
| commit | 53e84610f17eb014badbd3977735f570aba26909 (patch) | |
| tree | 1679e7b5a4ad9a3cbd3c2b406c2ea66a4b42dab3 | |
| parent | bd6fb074aa928e95a4b6a12a0e1b270b3d14cbc6 (diff) | |
Scandinavian indefinite modified form fix
| -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 |