rename GF.Grammar.Predef.isPredefCat to isLiteralCat

src/compiler/GF/Compile/Abstract/TC.hs

@@ -161,7 +161,7 @@ checkInferExp th tenv@(k,_,_) e typ = do
 inferExp :: Theory -> TCEnv -> Exp -> Err (AExp, Val, [(Val,Val)])
 inferExp th tenv@(k,rho,gamma) e = case e of
    Vr x -> mkAnnot (AVr x) $ noConstr $ lookupVar gamma x
-   Q (m,c) | m == cPredefAbs && isPredefCat c
+   Q (m,c) | m == cPredefAbs && isLiteralCat c
                      -> return (ACn (m,c) vType, vType, [])
            | otherwise -> mkAnnot (ACn (m,c)) $ noConstr $ lookupConst th (m,c)
    QC c -> mkAnnot (ACn c) $ noConstr $ lookupConst th c ----

src/compiler/GF/Compile/Rename.hs

@@ -87,8 +87,8 @@ renameIdentTerm env@(act,imps) t =
 
    -- this facility is mainly for BWC with GF1: you need not import PredefAbs
    predefAbs c s
-     | isPredefCat c = return $ Q (cPredefAbs,c)
-     | otherwise     = checkError s
+     | isLiteralCat c = return $ Q (cPredefAbs,c)
+     | otherwise      = checkError s
 
    ident alt c = case lookupTree showIdent c act of
       Ok f -> return $ f c