generalize DAP

2021-04-27 13:23:27 +02:00
parent adb1cffb75
commit 156e193d47
3 changed files with 4 additions and 4 deletions
@@ -190,10 +190,10 @@ incomplete concrete NounRomance of Noun =
       a = np.a ** {n = det.n} } ;

    AdjDAP det ap = {
-      s = \\g => det.s ! g ++ ap.s ! genNum2Aform g det.n ;
+      s = \\g,c => det.s ! g ! c ++ ap.s ! genNum2Aform g det.n ;
      n = det.n ;
      } ;

-    DetDAP det = {s = \\g => det.s ! g ! Nom ; n = det.n } ;
+    DetDAP det = {s = \\g,c => det.s ! g ! c ; n = det.n } ;

 }