comparative adverbs generalized to cover more of Attempto

2008-11-15 11:19:10 +00:00
parent 6b21e170e8
commit fc60a33c2a
34 changed files with 124 additions and 78 deletions
@@ -11,6 +11,10 @@ incomplete concrete AdjectiveRomance of Adjective =
      s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ; 
      isPre = False
      } ;
+    CAdvAP ad ap np = {
+      s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ; 
+      isPre = False
+      } ;
    UseComparA a = {
      s = \\af => a.s ! Compar ! af ;
      isPre = a.isPre