From 470ea62e9d4b5cc5967d26b916ca807b2efaf8d0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 3 Apr 2017 20:55:45 +0000
Subject: [PATCH] Handle define-c inline globals

---
 scheme/cyclone/transforms.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index cb5d27e8..65b32f7a 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -790,7 +790,9 @@
       (lambda (e)
         (if (or (define? e)
                 (define-c? e))
-            (set! globals (cons (define->var e) globals))))
+            (set! globals (cons (define->var e) globals)))
+        (if (define-c-inline? e)
+            (set! globals (cons (define-c->inline-var e) globals))))
       exp)
     globals))