Remove hardcoded tag

This commit is contained in:
Justin Ethier 2016-08-23 03:51:36 -04:00
parent 1c0bd864c6
commit 80c10d8eb9

View file

@ -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