Added compilation of casts

ktvoelker · Apr 6, 2012 · a785010 · a785010
1 parent 65d64fe
commit a785010
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Compiler.hs b/Compiler.hs
@@ -51,6 +51,8 @@ compileExpr e = case e of
       [Return $ compileExpr e]) (map compileExpr bVals)
   Hs.Case scru name _ alts -> compileCase scru name alts
   Hs.Type _ -> ENative "T"
+  Hs.Cast e _ -> compileExpr e
+  _ -> undefined
 
 compileCase :: Hs.Expr Hs.CoreBndr -> Hs.CoreBndr -> [Hs.Alt Hs.CoreBndr] -> Expr
 compileCase scru name alts =

diff --git a/todo.md b/todo.md
@@ -4,8 +4,6 @@ TODO
 
 Compile data constructors
 
-Support casts in the compiler
-
 Implement the native functions F and S
 
 Start adding native libraries