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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2016-10-07 18:38:59 -04:00
parent 02a8676e59
commit 2a0d6a829c
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/libraries.sld
View file

@ -285,13 +285,13 @@
;; Filter to symbols from "only" that appear in export list ;; Filter to symbols from "only" that appear in export list
(filter (filter
(lambda (sym) (lambda (sym)
;; TODO: not good enough, need to handle renamed identifiers ;; TODO: not good enough, need to handle renamed identifiers
(member sym exports)) (member sym exports))
(cddr import-set))) (cddr import-set)))
((tagged-list? 'except import-set) ((tagged-list? 'except import-set)
(filter (filter
(lambda (sym) (lambda (sym)
;; TODO: not good enough, need to handle renamed identifiers ;; TODO: not good enough, need to handle renamed identifiers
(not (member sym (cddr import-set)))) (not (member sym (cddr import-set))))
exports)) exports))
((tagged-list? 'prefix import-set) ((tagged-list? 'prefix import-set)
@ -341,6 +341,7 @@
;((a1 . a) b c (d2 . d) e) ;((a1 . a) b c (d2 . d) e)
;cyclone> (lib:import-set/exports->imports '(prefix (lib) my-) '(a b c d e)) ;cyclone> (lib:import-set/exports->imports '(prefix (lib) my-) '(a b c d e))
;((my-a . a) (my-b . b) (my-c . c) (my-d . d) (my-e . e)) ;((my-a . a) (my-b . b) (my-c . c) (my-d . d) (my-e . e))
;cyclone> (lib:import-set/exports->imports '(only (prefix (lib) my-) my-b) '(a b c d e))
;; 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)