checked that course of value tables (table P [...]) have the correct number of values w.r.t the type P. This was previously not checked, and caused hard-to-find run-time errors.

src/compiler/GF/Compile/TypeCheck/Concrete.hs

@@ -436,6 +436,10 @@ checkLType gr g trm typ0 = do
       case typ of
         Table arg1 val ->
            do arg' <- checkEqLType gr g arg0 arg1 trm
+              vs1 <- allParamValues gr arg1
+              if length vs1 == length vs
+                 then return ()
+                 else checkError $ text "wrong number of values in table" <+> ppTerm Unqualified 0 trm
               vs' <- map fst `fmap` sequence [checkLType gr g v val|v<-vs]
               return (V arg' vs',typ)
 

src/compiler/GF/Compile/TypeCheck/RConcrete.hs

@@ -468,6 +468,10 @@ checkLType gr g trm typ0 = do
       case typ of
         Table arg1 val ->
            do arg' <- checkEqLType gr g arg0 arg1 trm
+              vs1 <- allParamValues gr arg1
+              if length vs1 == length vs
+                 then return ()
+                 else checkError $ "wrong number of values in table" <+> ppTerm Unqualified 0 trm
               vs' <- map fst `fmap` sequence [checkLType gr g v val|v<-vs]
               return (V arg' vs',typ)