From 3ff57f6184963acde7f3cc2dcf0638c0e819929a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 15 Nov 2008 11:19:10 +0000
Subject: comparative adverbs generalized to cover more of Attempto

---
 next-lib/src/romance/AdjectiveRomance.gf | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'next-lib/src/romance/AdjectiveRomance.gf')

diff --git a/next-lib/src/romance/AdjectiveRomance.gf b/next-lib/src/romance/AdjectiveRomance.gf
index 359e4088a..d24d6dff0 100644
--- a/next-lib/src/romance/AdjectiveRomance.gf
+++ b/next-lib/src/romance/AdjectiveRomance.gf
@@ -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
-- 
cgit v1.2.3