scandinavian compound comparison

lib/resource-1.0/scandinavian/AdjectiveScand.gf

@@ -8,7 +8,11 @@ incomplete concrete AdjectiveScand of Adjective =
       isPre = True
       } ;
     ComparA a np = {
-      s = \\_ => a.s ! AF ACompar Nom ++ conjThan ++ np.s ! nominative ; 
+      s = \\ap => case a.isComp of {
+        True => compMore ++ a.s ! AF (APosit ap) Nom ;
+        _    => a.s ! AF ACompar Nom
+        }
+        ++ conjThan ++ np.s ! nominative ; 
       isPre = False
       } ;
 

lib/resource-1.0/scandinavian/CatScand.gf

@@ -83,9 +83,9 @@ incomplete concrete CatScand of Cat =
     V2, VV, V2A = Verb ** {c2 : Str} ;
     V3 = Verb ** {c2,c3 : Str} ;
 
-    A  = Adjective ;
+    A  = Adjective ** {isComp : Bool} ;
        -- {s : AForm => Str} ;
-    A2 = Adjective ** {c2 : Str} ;
+    A2 = Adjective ** {isComp : Bool ; c2 : Str} ;
 
     N  = Noun ; 
       -- {s : Number => Species => Case => Str ; g : Gender} ;

lib/resource-1.0/scandinavian/DiffScand.gf

@@ -27,6 +27,7 @@ interface DiffScand = open CommonScand, Prelude in {
 
     conjThat : Str ;
     conjThan : Str ;
+    compMore : Str ;
     conjAnd  : Str ;
     infMark  : Str ;
 

lib/resource-1.0/scandinavian/NounScand.gf

@@ -76,7 +76,13 @@ incomplete concrete NounScand of Noun =
 
     AdNum adn num = {s = \\g => adn.s ++ num.s ! g ; isDet = True} ;
 
-    OrdSuperl a = {s = a.s ! AF (ASuperl SupWeak) Nom ; isDet = True} ;
+    OrdSuperl a = {
+      s = case a.isComp of {
+        True => "mest" ++ a.s ! AF (APosit (Weak Sg)) Nom ;
+        _    => a.s ! AF (ASuperl SupWeak) Nom
+        }  ; 
+      isDet = True
+      } ;
 
     DefArt = {
       s = \\n,b,g => if_then_Str b (artDef (gennum g n)) [] ;