bug fixes in parsing etc; improved ImperC

2004-09-24 08:46:03 +00:00
parent 2c60a2d82a
commit 33ea630d4d
9 changed files with 64 additions and 28 deletions
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -273,6 +273,10 @@ typeString = constPredefRes "String"
 typeInt = constPredefRes "Int"
 typeInts i = App (constPredefRes "Ints") (EInt i)

+isTypeInts ty = case ty of
+  App c _ -> c == constPredefRes "Ints"
+  _ -> False
+
 constPredefRes s = Q (IC "Predef") (zIdent s)

 isPredefConstant t = case t of