(Est) Use genitive stem+suffix for 4 other cases

2022-04-14 19:07:03 +08:00
parent e8503511ca
commit 76f23214c1
9 changed files with 128 additions and 115 deletions
@@ -11,7 +11,7 @@ concrete AdverbEst of Adverb = CatEst ** open ResEst, Prelude in {
      s = cadv.s ++ a.s ! Posit ! AAdv ++ cadv.p ++ s.s
      } ;

-    PrepNP prep np = {s = preOrPost prep.isPre prep.s (np.s ! prep.c)} ;
+    PrepNP prep np = {s = appCompl True Pos prep np} ;

    AdAdv = cc2 ;