From 5ae7be358daf169a3852d93f36c30c4ce7d0363e Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 1 Jul 2010 08:51:59 +0000 Subject: redesign the open-literals API --- src/compiler/GF/Compile/Rename.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Compile/Rename.hs') diff --git a/src/compiler/GF/Compile/Rename.hs b/src/compiler/GF/Compile/Rename.hs index a5645c26e..a0ccdae12 100644 --- a/src/compiler/GF/Compile/Rename.hs +++ b/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 - | isLiteralCat c = return $ Q (cPredefAbs,c) - | otherwise = checkError s + | isPredefCat c = return $ Q (cPredefAbs,c) + | otherwise = checkError s ident alt c = case lookupTree showIdent c act of Ok f -> return $ f c -- cgit v1.2.3