future tense 'komma att' in scandinavian

lib/src/swedish/CatSwe.gf

@@ -1,2 +1,2 @@
-concrete CatSwe of Cat = CommonX ** CatScand with
+concrete CatSwe of Cat = CommonX - [Tense,Temp] ** CatScand with
   (ResScand = ResSwe) ;

lib/src/swedish/DiffSwe.gf

@@ -19,6 +19,7 @@ instance DiffSwe of DiffScand = open CommonScand, Prelude in {
     hasAuxBe _ = False ;
 
 
+
 -- Strings.
 
     conjThat = "att" ;
@@ -48,6 +49,8 @@ instance DiffSwe of DiffScand = open CommonScand, Prelude in {
     noPart = {part = []} ;
 
     auxFut = "ska" ;      -- "skall" in ExtSwe
+    auxFutKommer = "kommer" ; 
+    auxFutPart = "" ; 
     auxCond = "skulle" ;
 
     negation : Polarity => Str = table {

lib/src/swedish/IdiomSwe.gf

@@ -12,7 +12,7 @@ concrete IdiomSwe of Idiom = CatSwe **
     GenericCl vp = mkClause "man" (agrP3 utr Sg) vp ;
 
     CleftNP np rs = mkClause "det" (agrP3 neutr Sg) 
-        (insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a) (predV verbBe)) ;
+        (insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a ! RNom) (predV verbBe)) ;
 
     CleftAdv ad s = mkClause "det" (agrP3 neutr Sg) 
       (insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;

lib/src/swedish/ResSwe.gf

@@ -1,3 +1,2 @@
-instance ResSwe of ResScand = DiffSwe ** open CommonScand, Prelude in {
+instance ResSwe of ResScand = DiffSwe ** open CommonScand,  Prelude in {
 } ;
-

lib/src/swedish/StructuralSwe.gf

@@ -28,7 +28,7 @@ concrete StructuralSwe of Structural = CatSwe **
   everybody_NP = regNP "alla" "allas" Utr Pl ;
   every_Det = {
     s = \\_,_ => "varje" ; 
-    sp = \\_,_ => "var och en" ; ----
+    sp = \\_ => genderForms ["var och en"] ["vart och ett"] ; ----
     n = Sg ; 
     det = DIndef
     } ;