fix parsing of literals

This commit is contained in:
krasimir
2010-04-23 20:46:14 +00:00
parent cc4d5d1d39
commit 9253ee6010
3 changed files with 19 additions and 9 deletions

View File

@@ -4,5 +4,7 @@ abstract Literals = {
fun IsString : String -> S ;
IsInteger : Int -> S ;
IsFloat : Float -> S ;
IsEq : Int -> S ;
}

View File

@@ -5,5 +5,6 @@ lincat S = Str ;
lin IsString x = x.s ++ "is string" ;
lin IsInteger x = x.s ++ "is integer" ;
lin IsFloat x = x.s ++ "is float" ;
lin IsEq x = x.s ++ "=" ++ x.s ;
}