From 830f7c14bc0a7c9a22ec73759e315087a658f8ee Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 28 Apr 2005 15:42:47 +0000
Subject: library adjustments, error message clean-up

---
 src/GF/Grammar/Macros.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/GF/Grammar/Macros.hs')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 234bd8394..db05f95a0 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:22:25 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.19 $
+-- > CVS $Date: 2005/04/28 16:42:49 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.20 $
 --
 -- Macros for constructing and analysing source code terms.
 --
@@ -309,6 +309,9 @@ isPredefConstant t = case t of
   Q (IC "PredefAbs") _ -> True
   _ -> False
 
+isPredefAbsType :: Ident -> Bool
+isPredefAbsType c = elem c [zIdent "Int", zIdent "String"]
+
 mkSelects :: Term -> [Term] -> Term
 mkSelects t tt = foldl S t tt
 
-- 
cgit v1.2.3