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 (export
library? library?
lib:list->import-set
lib:name lib:name
lib:name->string lib:name->string
lib:name->symbol lib:name->symbol
@ -43,14 +44,19 @@
(define (library? ast) (define (library? ast)
(tagged-list? '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 (map
(lambda (atom) (lambda (atom)
(cond (cond
((number? atom) ((number? atom)
(string->symbol (number->string atom))) (string->symbol (number->string atom)))
(else 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 ;; Convert name (as list of symbols) to a mangled string
(define (lib:name->string name) (define (lib:name->string name)
@ -210,7 +216,7 @@
(find-deps! deps) (find-deps! deps)
)))) ))))
import-set)))) import-set))))
(find-deps! imports) (find-deps! (lib:list->import-set imports))
;`((deps ,libraries/deps) ; DEBUG ;`((deps ,libraries/deps) ; DEBUG
; (result ,(lib:get-dep-list libraries/deps))) ; (result ,(lib:get-dep-list libraries/deps)))
(lib:get-dep-list libraries/deps) (lib:get-dep-list libraries/deps)