From cd45021b2b2d22bab260ec808f518f8d582ab5e3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 May 2015 13:14:08 -0400
Subject: [PATCH] Pass lib args to cgen

---
 cgen.scm    | 2 +-
 cyclone.scm | 6 +-----
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/cgen.scm b/cgen.scm
index f4845183..b4b59a00 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -937,7 +937,7 @@
                        "}\n"))
       formals*))))
   
-(define (mta:code-gen input-program globals)
+(define (mta:code-gen input-program globals program? lib-exports lib-imports)
   (set! *global-syms* globals)
   (let ((compiled-program 
           (apply string-append
diff --git a/cyclone.scm b/cyclone.scm
index 1dae6266..920d98f2 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -168,11 +168,7 @@
           (exit)))
     
       (trace:info "---------------- C code:")
-      (mta:code-gen input-program globals)
-        ; TODO: add as parameters above?
-        ; (set! program? #f)
-        ; (set! lib-exports (lib:exports (car input-program)))
-        ; (set! lib-imports (lib:imports (car input-program)))
+      (mta:code-gen input-program globals program? lib-exports lib-imports)
       (return '())))) ;; No codes to return
 
 ;; TODO: longer-term, will be used to find where cyclone's data is installed