English and Swedish resource functions for Query

2026-05-03 00:02:50 -06:00 · 2010-10-20 16:19:33 +00:00
parent 43cbc6693d
commit 8a29598f3c
16 changed files with 103 additions and 59 deletions
--- a/lib/src/scandinavian/AdjectiveScand.gf
+++ b/lib/src/scandinavian/AdjectiveScand.gf
@@ -54,6 +54,11 @@ incomplete concrete AdjectiveScand of Adjective =
      isPre = ap.isPre
      } ;

+    AdvAP ap adv = {
+      s = \\a => ap.s ! a ++ adv.s ;
+      isPre = ap.isPre
+      } ;
+
    UseA2 a = {
      s = \\ap => a.s ! AF (APosit ap) Nom ;
      isPre = True