German relative "was" in RelS

2026-06-29 18:48:37 -06:00 · 2015-07-21 15:00:35 +00:00
parent b3781dc4ad
commit aa8c214671
7 changed files with 24 additions and 15 deletions
@@ -174,13 +174,13 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {

    RelCN cn rs = {
      s = \\a,n,c => cn.s ! a ! n ! c ++ "," ++  
-                     rs.s ! gennum cn.g n ;
+                     rs.s ! RGenNum (gennum cn.g n) ;
      g = cn.g
      } ;

    RelNP np rs = {
      s = \\c => np.s ! c ++ "," ++ 
-                 rs.s ! gennum (genderAgr np.a) (numberAgr np.a) ;
+                 rs.s ! RGenNum (gennum (genderAgr np.a) (numberAgr np.a)) ;
      a = np.a ;
      isPron = False
      } ;