float parsing fixed

This commit is contained in:
aarne
2005-12-11 17:48:55 +00:00
parent 8ee11c0e7e
commit 9f867c4922
8 changed files with 50 additions and 28 deletions

View File

@@ -83,7 +83,7 @@ cString :: Ident
cString = identC "String"
isPredefCat :: Ident -> Bool
isPredefCat c = elem c [cInt,cString]
isPredefCat c = elem c [cInt,cString,cFloat]
eType :: Exp
eType = Sort "Type"