structural words needed for Attempto ; negative items are overgenerating

2008-11-03 16:52:54 +00:00
parent 7f0b861ca9
commit e67587ae5b
11 changed files with 101 additions and 13 deletions
--- 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
      } ;