extended AP with Ord and compar in 1.5

2026-06-29 18:48:35 -06:00 · 2008-10-03 20:42:09 +00:00
parent 56c2c0e067
commit 16a1a48874
16 changed files with 115 additions and 115 deletions
@@ -10,8 +10,16 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
      s = \\_ => a.s ! AAdj Compar ++ "than" ++ np.s ! Nom ; 
      isPre = False
      } ;
+    UseComparA a = {
+      s = \\_ => a.s ! AAdj Compar ; 
+      isPre = True
+      } ;
+
+    AdjOrd ord = {
+      s = \\_ => ord.s ;
+      isPre = True
+      } ;

-- $SuperlA$ belongs to determiner syntax in $Noun$.

    ComplA2 a np = {
      s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; 
@@ -33,6 +41,9 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
      isPre = ap.isPre
      } ;

-    UseA2 a = a ;
+    UseA2 a = {
+      s = \\_ => a.s ! AAdj Posit ;
+      isPre = True
+      } ;

 }