(Ara) add SentAP

2026-07-02 12:08:34 -06:00 · 2018-12-26 14:32:43 +01:00
parent 35f21bf5cb
commit 213e505e9a
2 changed files with 4 additions and 6 deletions
@@ -29,11 +29,10 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
 --      isPre = False
 --      } ;
 --
--    SentAP ap sc = {
--      s = \\a => ap.s ! a ++ sc.s ;
--      isPre = False
--      } ;
--
+  SentAP ap sc = ap ** {
+    s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ sc.s ;
+    } ;
+
  AdAP ada ap = {
    s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ ada.s
    } ;