From 9a98356589b4e0eaf2c84786ceb5cad12cebd6f0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 30 Apr 2017 18:52:21 -0400
Subject: [PATCH] Added lib:inlines

---
 scheme/cyclone/libraries.sld | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld
index dddc77c4..f41e1b04 100644
--- a/scheme/cyclone/libraries.sld
+++ b/scheme/cyclone/libraries.sld
@@ -35,6 +35,7 @@
     lib:cond-expand-decls
     lib:includes
     lib:include-c-headers
+    lib:inlines
     lib:import-set:library-name?
     lib:import-set->import-set
     lib:import->library-name
@@ -188,6 +189,15 @@
         (tagged-list? 'include-c-header code))
       (cddr ast))))
 
+(define (lib:inlines ast)
+  (map
+    (lambda (inc-lst)
+      (cadr inc-lst))
+    (filter
+      (lambda (code)
+        (tagged-list? 'inline code))
+      (cddr ast))))
+
 ;; TODO: include-ci, cond-expand
 
 ;TODO: maybe just want a function that will take a define-library expression and expand any top-level cond-expand expressions.