From edccb56163519884108c744b22b47a70004001c6 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 30 Apr 2017 19:03:44 -0400
Subject: [PATCH] bugfixes

---
 scheme/cyclone/libraries.sld | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld
index f41e1b04..6f148614 100644
--- a/scheme/cyclone/libraries.sld
+++ b/scheme/cyclone/libraries.sld
@@ -190,13 +190,15 @@
       (cddr ast))))
 
 (define (lib:inlines ast)
-  (map
-    (lambda (inc-lst)
-      (cadr inc-lst))
-    (filter
-      (lambda (code)
-        (tagged-list? 'inline code))
-      (cddr ast))))
+  (apply 
+    append
+    (map
+      (lambda (inc-lst)
+        (cdr inc-lst))
+      (filter
+        (lambda (code)
+          (tagged-list? 'inline code))
+        (cddr ast)))))
 
 ;; TODO: include-ci, cond-expand