Handle record tables, pass FoodSwe in testsuite

testsuite/lpgf/Foods.gf

@@ -10,6 +10,6 @@ abstract Foods = {
     Mod : Quality -> Kind -> Kind ;
     Wine, Cheese, Fish, Pizza : Kind ;
     Very : Quality -> Quality ;
-    Fresh, Warm, Italian, 
+    Fresh, Warm, Italian,
       Expensive, Delicious, Boring : Quality ;
 }

testsuite/lpgf/FoodsSwe.gf

@@ -1,6 +1,6 @@
 
 -- (c) 2009 Aarne Ranta under LGPL
 
-concrete FoodsSwe of Foods = FoodsI with 
+concrete FoodsSwe of Foods = FoodsI with
   (Syntax = SyntaxSwe),
   (LexFoods = LexFoodsSwe) ** {flags language = sv_SE;} ;

testsuite/lpgf/run.hs

@@ -15,10 +15,10 @@ dir = "testsuite" </> "lpgf"
 
 main :: IO ()
 main = do
+  doGrammar "Tables"
   doGrammar "Params"
   doGrammar "Walking"
   doGrammar "Foods"
-  doGrammar "Tables"
 
 doGrammar :: String -> IO ()
 doGrammar gname = do
@@ -42,7 +42,7 @@ doGrammar gname = do
     printf "%s: %s\n" gname ast
     let
       Just tree = readExpr ast
-    -- Do some linearization
+      -- Do some linearization
       langs =
         [ printf "%s: %s" (showLanguage lang) (linearizeConcr concr tree)
         | (lang,concr) <- Map.toList (concretes lpgf)