better error msg for missing record labels

src/GF/Compile/CheckGrammar.hs

@@ -885,7 +885,7 @@ checkLType env trm typ0 = do
      Just (_,t) -> do
        (t',ty') <- check t ty
        return (l,(Just ty',t'))
-     _ -> prtFail "cannot find value for label" l
+     _ -> raise $ "cannot find value for label" +++ prt l +++ "in" +++ prt_ (R rms)
 
    checkCase arg val (p,t) = do
      cont <- pattContext env arg p

src/GF/Compile/GrammarToGFCC.hs

@@ -33,8 +33,8 @@ import qualified Data.ByteString.Char8 as BS
 import Debug.Trace ----
 
 -- when developing, swap commenting
-traceD s t = trace s t 
---traceD s t = t 
+--traceD s t = trace s t 
+traceD s t = t 
 
 
 -- the main function: generate PGF from GF.