mes: Single environment lookup for variables, SICP chapter 3.
[mes.git] / module / language / c99 / compiler.mes
index d6338f338c423fdf3c5542ff43ca2ba670178b13..87cb97c68b681beb406520822a6ec3f78786d76b 100644 (file)
                 (info (append-text info (wrap-as `((#:label ,skip-b-label))))))
            info))
 
-        ((cast ,cast ,o)
-         ((expr->accu info) o))
+        ((cast ,type ,expr)
+         ((expr->accu info) expr))
 
         ((assn-expr (de-ref (post-inc (p-expr (ident ,name)))) (op ,op) ,b)
          (let* ((info ((expr->accu info) `(assn-expr (de-ref (p-expr (ident ,name))) (op ,op) ,b)))