equal
deleted
inserted
replaced
596 return $ InitTypeCast (Identifier t BTUnknown) i |
596 return $ InitTypeCast (Identifier t BTUnknown) i |
597 |
597 |
598 builtInFunction e = do |
598 builtInFunction e = do |
599 name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin |
599 name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin |
600 spaces |
600 spaces |
601 exprs <- option [] $ parens pas $ commaSep1 pas $ e |
601 exprs <- option [] $ parens pas $ option [] $ commaSep1 pas $ e |
602 spaces |
602 spaces |
603 return (name, exprs) |
603 return (name, exprs) |
604 |
604 |
605 systemUnit = do |
605 systemUnit = do |
606 string "system;" |
606 string "system;" |