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/finnish/AdjectiveFin.gf | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'next-lib/src/finnish/AdjectiveFin.gf')

diff --git a/next-lib/src/finnish/AdjectiveFin.gf b/next-lib/src/finnish/AdjectiveFin.gf
index 737887d17..ee6bc58dd 100644
--- a/next-lib/src/finnish/AdjectiveFin.gf
+++ b/next-lib/src/finnish/AdjectiveFin.gf
@@ -13,6 +13,9 @@ concrete AdjectiveFin of Adjective = CatFin ** open ResFin, Prelude in {
         _    => a.s ! Compar ! AN af ++ "kuin" ++ np.s ! NPCase Nom -- isompi kuin minä
         } 
       } ;
+    CAdvAP ad ap np = {
+      s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPCase Nom 
+      } ;
     UseComparA a = {
       s = \\_,nf => a.s ! Compar ! AN nf ;
       } ;
-- 
cgit v1.2.3