comparative adverbs generalized to cover more of Attempto

2008-11-15 11:19:10 +00:00
parent 6b4f9715e6
commit 3ff57f6184
34 changed files with 124 additions and 78 deletions
--- a/next-lib/src/scandinavian/AdjectiveScand.gf
+++ b/next-lib/src/scandinavian/AdjectiveScand.gf
@@ -23,6 +23,11 @@ incomplete concrete AdjectiveScand of Adjective =
      isPre = False
      } ;

+    CAdvAP ad ap np = {
+      s = \\a => ad.s ++ ap.s ! a ++ ad.p ++ np.s ! nominative ; 
+      isPre = False
+      } ;
+
    AdjOrd ord = {
      s = \\_ => ord.s ;
      isPre = True