added AdvCN ; some German morpho bug fixes

2006-01-18 17:27:52 +00:00
parent 033d6b3f3c
commit 5a82617526
7 changed files with 26 additions and 10 deletions
--- a/resource-1.0/german/NounGer.gf
+++ b/resource-1.0/german/NounGer.gf
@@ -132,4 +132,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
      g = cn.g
      } ;

+    AdvCN cn s = {
+      s = \\a,n,c => cn.s ! a ! n ! c ++ s.s ;
+      g = cn.g
+      } ;
+
 }