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/german/AdjectiveGer.gf
+++ b/next-lib/src/german/AdjectiveGer.gf
@@ -12,6 +12,10 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
      s = \\af => a.s ! Compar ! af ++ conjThan ++ np.s ! Nom ;
      isPre = True
      } ;
+    CAdvAP ad ap np = {
+      s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ np.s ! Nom ;
+      isPre = False
+      } ;
    UseComparA a = {
      s = \\af => a.s ! Compar ! af ;
      isPre = True