X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/a83f1d602c6f50eb9ab0448a20f0ecb80fefcead..a644da892dbd55a7be1aed029dafebe28d26d27e:/trans/trans.sml?ds=sidebyside

diff --git a/trans/trans.sml b/trans/trans.sml
index 0ec6574..ec66fd5 100644
--- a/trans/trans.sml
+++ b/trans/trans.sml
@@ -97,6 +97,7 @@ struct
       fun trans_exp env vartypes (A.Var(id)) =
         (* after type-checking, id must be declared; do not guard lookup *)
             T.TEMP (Symbol.look' env id)
+        | trans_exp env vartypes (A.Cast (ty, e)) = trans_exp env vartypes e (* lurrr *)
         | trans_exp env vartypes (A.ConstExp c) = T.CONST(c)
         | trans_exp env vartypes (A.StringExp s) = T.STRING(Stringref.new s)
         | trans_exp env vartypes (A.OpExp(oper, [e1, e2])) =