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

Added function to normalize import set lists

Browse source
This commit is contained in:
Justin Ethier 2015-12-27 22:04:51 -05:00
parent 11b479f379
commit e8186fb6fe
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/libraries.sld
View file

@ -19,6 +19,7 @@
)
(export
library?
lib:list->import-set
lib:name
lib:name->string
lib:name->symbol
@ -43,14 +44,19 @@
(define (library? ast)
(tagged-list? 'define-library ast))
(define (lib:name ast)
;; Convert a raw list to an import set. For example, a list might be
;; (srfi 18) containing the number 18. An import set contains only symbols.
(define (lib:list->import-set lis)
(map
(lambda (atom)
(cond
((number? atom)
(string->symbol (number->string atom)))
(else atom)))
(cadr ast)))
lis))
(define (lib:name ast)
(lib:list->import-set (cadr ast)))
;; Convert name (as list of symbols) to a mangled string
(define (lib:name->string name)
@ -210,7 +216,7 @@
(find-deps! deps)
))))
import-set))))
(find-deps! imports)
(find-deps! (lib:list->import-set imports))
;`((deps ,libraries/deps) ; DEBUG
; (result ,(lib:get-dep-list libraries/deps)))
(lib:get-dep-list libraries/deps)