From 298338586a381708b3b2fbc06aeb91df19dc0c45 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 4 Apr 2017 19:02:24 -0400
Subject: [PATCH] WIP - register inlinable Scheme functions

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

diff --git a/cyclone.scm b/cyclone.scm
index 4b904c40..fde7481c 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -174,6 +174,14 @@
       (set! module-globals (global-vars input-program))
       (set! globals (append (lib:idb:ids imported-vars) module-globals))
 
+      ;; Register inlinable Scheme functions
+      (for-each
+        (lambda (e)
+          (if (define-c-inline? e)
+            (prim:add-udf! (define->var e) (define-c->inline-var e))))
+            ;(write `(DEBUG add inline ,(define->var e) ,(define-c->inline-var e)))))
+        input-program)
+
       ;; Trim down the export list to any exports that are just "pass throughs"
       ;; from imported libraries. That is, they are not actually defined in
       ;; the library being compiled