Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added compilation of casts

  • Loading branch information...
commit a7850102e944ae5f8cda319405e538c979653345 1 parent 65d64fe
@ktvoelker authored
Showing with 2 additions and 2 deletions.
  1. +2 −0  Compiler.hs
  2. +0 −2  todo.md
View
2  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 =
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.