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

Recursive processing for lib:import->library-name

Browse source
This commit is contained in:
Justin Ethier 2016-10-08 03:21:43 -04:00
parent 0b4bb36ec0
commit f2ec269573
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/libraries.sld
View file

@ -77,7 +77,8 @@
(tagged-list? 'except import)
(tagged-list? 'prefix import)
(tagged-list? 'rename import))
(cadr import))
(lib:import->library-name
(cadr import)))
(else
import)))
@ -228,6 +229,8 @@
(exports (lib:exports (car lib))))
(close-input-port fp)
(cond
;; TODO: how to handle these recursively? IE: import set could be
;; a rename that has a prefix that has a library name
((tagged-list? 'only import)
;; Filter to symbols from "only" that appear in export list
(filter
@ -239,6 +242,9 @@
(lambda (sym)
(not (member sym (cddr import))))
exports))
;; TODO: if prefix or rename, can resolve to original lib identifier.
;; would need another function somewhere to compute the renames though.
;; maybe compute both and return a list of both???
(else
exports))))