we now support irregAdv in Swedish

lib/src/swedish/DocumentationSwe.gf

@@ -44,7 +44,9 @@ lin
            caseInfl Nom ++
            tr (intagAttr "th" "colspan=5" "genitiv") ++
            caseInfl Nom
-         )
+        ) ++
+        heading1 ("Adverb") ++
+        paragraph (adj.s ! AAdv) ;
     } where {
         caseInfl : Case -> Str = \c ->
           tr (intagAttr "th" "rowspan=3" "obest" ++

lib/src/swedish/ParadigmsSwe.gf

@@ -189,6 +189,8 @@ oper
  
   invarA : Str -> A ;  -- e.g. äkta
 
+  irregAdv : A -> Str -> A ;  -- adverb irreg
+
 ---- Adjective with deviant adverb.
 
 ----  deviantAdvA : Str -> A -> A ; -- e.g. bra, god
@@ -582,6 +584,8 @@ oper
 
   invarA s = mk3cA s s s True ;
 
+  irregAdv a adv = lin A {s = table {AAdv => adv; aform => a.s ! aform}; isComp = a.isComp} ;
+
   mkA2 a p = a ** {c2 = mkComplement p.s ; lock_A2 = <>} ;
 
   mkAdv x = ss x ** {lock_Adv = <>} ;