allow post-position adjectives. added as_CAdv

2026-07-02 03:58:34 -06:00 · 2018-07-10 11:25:06 +02:00
parent e5c523e480
commit 8c2a6f6118
8 changed files with 24 additions and 20 deletions
@@ -6,7 +6,7 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
    PositA  a = {
      s = \\aform,_ => a.s ! aform ;
      adv = a.adv ;
-      isPre = True
+      isPre = a.isPre
      } ;

    ComparA a np = {