English and Swedish resource functions for Query

2010-10-20 16:19:33 +00:00
parent 43cbc6693d
commit 8a29598f3c
16 changed files with 103 additions and 59 deletions
--- a/lib/src/english/AdjectiveEng.gf
+++ b/lib/src/english/AdjectiveEng.gf
@@ -50,4 +50,6 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
      isPre = True
      } ;

+    AdvAP ap adv = {s = \\a => ap.s ! a ++ adv.s ; isPre = False} ;
+
 }