Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Filter export lists for (only) and (except)

Browse source
This commit is contained in:
Justin Ethier 2016-10-07 23:54:47 -04:00
parent 8f7a56a3ef
commit 7caace8f13
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/cyclone/libraries.sld
View file

@ -222,7 +222,20 @@
(lib (read-all fp)) (lib (read-all fp))
(exports (lib:exports (car lib)))) (exports (lib:exports (car lib))))
(close-input-port fp) (close-input-port fp)
exports)) (cond
((tagged-list? 'only import)
;; Filter to symbols from "only" that appear in export list
(filter
(lambda (sym)
(member sym exports))
(cddr import)))
((tagged-list? 'except import)
(filter
(lambda (sym)
(not (member sym (cddr import))))
exports))
(else
exports))))
;; Take a list of imports and resolve it to the imported vars ;; Take a list of imports and resolve it to the imported vars
(define (lib:resolve-imports imports) (define (lib:resolve-imports imports)