From 6d0d81f9ef1389d046996b1dcc9bcf90da244ba7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 23 Aug 2017 16:30:40 +0000
Subject: [PATCH] Call opt:add-inlinable-functions to load inlines

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

diff --git a/cyclone.scm b/cyclone.scm
index f8b5a3c0..e226f4d5 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -199,6 +199,12 @@
             ;(write `(DEBUG add inline ,(define->var e) ,(define-c->inline-var e)))))
         input-program)
 
+      ;; Inlines do not have to be non-CPS, they are really two separate things.
+      ;; So keep track of all functions marked as inline because there are still
+      ;; possibilities for optimization even if the function must call into its
+      ;; continuation.
+      (opt:add-inlinable-functions inlines) 
+
       ;; 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