we now support irregAdv in Swedish

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 = <>} ;