a couple of fixes in Ger

2013-04-05 08:38:13 +00:00
parent 04aa0c8eea
commit bee9db74f9
4 changed files with 12 additions and 6 deletions
@@ -195,4 +195,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
      isMod = cn.isMod
      } ;

+    PossNP cn np = {
+      s = \\a,n,c => cn.s ! a ! n ! c ++ np.s ! NPP CVonDat ;
+      g = cn.g
+      } ;
+
 }