,
FunDecl zero "1printbool" ["x"] Nothing [] [
IfStmt (VarExpr zero (VarDef "x" []))
- [FunStmt "1printstr" [strOp2 $ fromString "True"] []]
- [FunStmt "1printstr" [strOp2 $ fromString "False"] []]
+ [FunStmt "1printstr" [makeStrExpr zero $ fromString "True"] []]
+ [FunStmt "1printstr" [makeStrExpr zero $ fromString "False"] []]
]]
- strOp2 :: [Char] -> Expr
- strOp2 [] = EmptyListExpr zero
- strOp2 [x:xs] = Op2Expr zero (CharExpr zero x) BiCons (strOp2 xs)
-
Start :: *World -> *World
Start w
# (args, w) = parseArgs w