comparative adverbs generalized to cover more of Attempto

2 files changed, 7 insertions, 2 deletions

diff --git a/next-lib/src/scandinavian/AdjectiveScand.gf b/next-lib/src/scandinavian/AdjectiveScand.gf
index 3dfe36fec..f6243e4a5 100644
--- a/next-lib/src/scandinavian/AdjectiveScand.gf
+++ b/next-lib/src/scandinavian/AdjectiveScand.gf
@@ -23,6 +23,11 @@ incomplete concrete AdjectiveScand of Adjective =
       isPre = False
       } ;
 
+    CAdvAP ad ap np = {
+      s = \\a => ad.s ++ ap.s ! a ++ ad.p ++ np.s ! nominative ; 
+      isPre = False
+      } ;
+
     AdjOrd ord = {
       s = \\_ => ord.s ;
       isPre = True
diff --git a/next-lib/src/scandinavian/AdverbScand.gf b/next-lib/src/scandinavian/AdverbScand.gf
index 1afa40cf1..ba25954ef 100644
--- a/next-lib/src/scandinavian/AdverbScand.gf
+++ b/next-lib/src/scandinavian/AdverbScand.gf
@@ -5,10 +5,10 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
       s = a.s ! adverbForm
       } ;
     ComparAdvAdj cadv a np = {
-      s = cadv.s ++ a.s ! adverbForm ++ conjThan ++ np.s ! nominative
+      s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ np.s ! nominative
       } ;
     ComparAdvAdjS cadv a s = {
-      s = cadv.s ++ a.s ! adverbForm ++ conjThan ++ s.s ! Sub
+      s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ s.s ! Sub
       } ;
 
     PrepNP prep np = {s = prep.s ++ np.s ! accusative} ;