float parsing fixed

This commit is contained in:
aarne
2005-12-11 17:48:55 +00:00
parent 0818aa7dc6
commit c2dde4e80f
9 changed files with 52 additions and 31 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"