From d27b55d27bc5688711cf3ef3b0ae5303539f5500 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 18 Apr 2017 09:54:13 +0000
Subject: [PATCH] Allow scheme inlines through, though C comp fails

---
 cyclone.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/cyclone.scm b/cyclone.scm
index 69afc748..9eb5bdd3 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -224,7 +224,10 @@
             (set! inlinable-scheme-fncs
               (cons (define->var e) inlinable-scheme-fncs))
             ;; TESTING, will not work yet
-            ;(prim:add-udf! (define->var e) (define-c->inline-var e))
+            (set! module-globals
+              (cons (define-c->inline-var e) module-globals))
+            (prim:add-udf! (define->var e) (define-c->inline-var e))
+            ;; END
         ))
         input-program)
       (trace:info "---------------- results of inlinable-top-level-function analysis: ")
@@ -327,6 +330,9 @@
       (trace:info "---------------- C headers: ")
       (trace:info c-headers)
 
+      (trace:info "---------------- module globals: ")
+      (trace:info module-globals)
+
       (trace:info "---------------- C code:")
       (mta:code-gen input-program 
                     program?