diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-03 16:52:54 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-03 16:52:54 +0000 |
| commit | 9ecc663d00fd91e8c0108785722c735348528f9e (patch) | |
| tree | 0d448c553699345a6a556c014f3ccfbd6fad5e5d /next-lib/src/german/NounGer.gf | |
| parent | 44ad7596b6e151000ef6155bbdc697c1896c5de8 (diff) | |
structural words needed for Attempto ; negative items are overgenerating
Diffstat (limited to 'next-lib/src/german/NounGer.gf')
| -rw-r--r-- | next-lib/src/german/NounGer.gf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/next-lib/src/german/NounGer.gf b/next-lib/src/german/NounGer.gf index 2ebdccd9e..02252afbd 100644 --- a/next-lib/src/german/NounGer.gf +++ b/next-lib/src/german/NounGer.gf @@ -23,7 +23,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in { } ; PredetNP pred np = { - s = \\c => pred.s ! np.a.n ! Masc ! c ++ np.s ! c ; ---- g + s = \\c0 => + let c = case pred.c of {NoCase => c0 ; PredCase k => k} in + pred.s ! np.a.n ! Masc ! c0 ++ np.s ! c ; ---- g a = np.a } ; |