From 80c10d8eb957808f498cba91320a0a7d322c7150 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 23 Aug 2016 03:51:36 -0400
Subject: [PATCH] Remove hardcoded tag

---
 scheme/cyclone/libraries.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld
index d7471e77..4b26e0b6 100644
--- a/scheme/cyclone/libraries.sld
+++ b/scheme/cyclone/libraries.sld
@@ -89,7 +89,7 @@
 (define (lib:get-all ast tag)
   (foldr append '()
     (map cdr 
-      (filter (lambda (l) (tagged-list? 'import l)) (cddr ast)))))
+      (filter (lambda (l) (tagged-list? tag l)) (cddr ast)))))
 
 (define (lib:raw-exports ast)
   (lib:result