From 3d7adf0a9f807b0dc4b2ee0651f16a6371bc1ce8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 23 Jun 2015 22:05:41 -0400
Subject: [PATCH] Fix compiler warning

---
 cgen.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cgen.scm b/cgen.scm
index 824d9613..5e790824 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -885,7 +885,7 @@
            (string-append
              "closureN_type " cv-name ";\n"
              cv-name ".tag = closureN_tag;\n "
-             cv-name ".fn = __lambda_" (number->string lid) ";\n"
+             cv-name ".fn = (function_type)__lambda_" (number->string lid) ";\n"
              cv-name ".num_elt = " (number->string (length free-vars)) ";\n"
              cv-name ".elts = (object *)alloca(sizeof(object) * " 
                      (number->string (length free-vars)) ");\n"