diff options
Diffstat (limited to 'Compiler.hs')
| -rw-r--r-- | Compiler.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Compiler.hs b/Compiler.hs index 347eb4a..b7f5639 100644 --- a/Compiler.hs +++ b/Compiler.hs @@ -86,9 +86,11 @@ newtype CM a = CM {unCM :: StateT CompState (Except String) a} -- TODO: extra info like number of arguments, dunno, might be useful builtinSet :: Set.Set Name builtinSet = Set.fromList [ - "+", "-", "<=", "=", "print", + "+", "-", "*", "/", "mod", "<=", "=", "print", "list", "car", "cdr", "null?", - "sys-open-file", "sys-close-file", "sys-get-char", "sys-put-string"] + "sys-open-file", "sys-close-file", "sys-get-char", "sys-put-string", "sys-flush", + "sys-stdin", "sys-stdout", "sys-stderr", + "length", "substr", "ord", "chr", "concat"] bbId :: BB -> Int bbId (BB i _ _) = i |