we now support irregAdv in Swedish

lib/src/scandinavian/AdverbScand.gf

@@ -2,13 +2,13 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
 
   lin
     PositAdvAdj a = {
-      s = a.s ! adverbForm
+      s = a.s ! AAdv
       } ;
     ComparAdvAdj cadv a np = {
-      s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ np.s ! nominative
+      s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ np.s ! nominative
       } ;
     ComparAdvAdjS cadv a s = {
-      s = cadv.s ++ a.s ! adverbForm ++ cadv.p ++ s.s ! Sub
+      s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s ! Sub
       } ;
 
     PrepNP prep np = {s = prep.s ++ np.s ! accusative} ;
@@ -16,7 +16,7 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
     AdAdv = cc2 ;
 
     PositAdAAdj a = {
-      s = a.s ! adverbForm
+      s = a.s ! AAdv
       } ;
 
     SubjS subj s = {
@@ -25,7 +25,4 @@ incomplete concrete AdverbScand of Adverb = CatScand ** open CommonScand, ResSca
 
     AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
 
-  oper
-    adverbForm : AForm = AF (APosit (Strong (GSg Neutr))) Nom ;
-
 }

lib/src/scandinavian/CommonScand.gf

@@ -31,7 +31,7 @@ param
 
   Gender  = Utr | Neutr ;
 
-  AForm   = AF AFormGrad Case ;
+  AForm   = AF AFormGrad Case | AAdv ;
 
   AFormGrad =
      APosit  AFormPos
@@ -192,8 +192,9 @@ oper
       AF (APosit a) c          => mkCase c (mkAdjPos a liten litet lilla sma) ;
       AF ACompar c             => mkCase c mindre ;
       AF (ASuperl SupStrong) c => mkCase c minst ;
-      AF (ASuperl SupWeak) c   => mkCase c minsta
-      } 
+      AF (ASuperl SupWeak) c   => mkCase c minsta ;
+      AAdv                     => litet
+      }
     } ;
 
   mkVerb9 : (x1,_,_,_,_,_,_,_,x9 : Str) -> {s : VForm => Str ; vtype : VType} =