From 1c0bd864c6a89cbfb09d4915cee9b2cbe2ebd7ca Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 23 Aug 2016 03:46:50 -0400
Subject: [PATCH] Added (lib:get-all)

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

diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld
index d1178320..d7471e77 100644
--- a/scheme/cyclone/libraries.sld
+++ b/scheme/cyclone/libraries.sld
@@ -38,6 +38,7 @@
     lib:import->export-list
     lib:resolve-imports
     lib:resolve-meta
+    lib:get-all
     lib:get-all-import-deps
     lib:get-dep-list
     lib:imports->idb
@@ -82,6 +83,14 @@
 ;; TODO: most of these below assume 0 or 1 instances of the directive.
 ;; may need to replace some of these later with filter operations to
 ;; support more than 1 instance.
+
+;; Get all instances of given tagged list from a library definition,
+;; and collect the contents of them into a single list.
+(define (lib:get-all ast tag)
+  (foldr append '()
+    (map cdr 
+      (filter (lambda (l) (tagged-list? 'import l)) (cddr ast)))))
+
 (define (lib:raw-exports ast)
   (lib:result 
     (let ((code (assoc 'export (cddr ast))))