English and Swedish resource functions for Query

2026-06-28 04:16:30 -06:00 · 2010-10-20 16:19:33 +00:00
parent b1baeb5b18
commit 8baec657cc
16 changed files with 103 additions and 59 deletions
@@ -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