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

Added (library-exists?)

Browse source
This commit is contained in:
Justin Ethier 2016-10-24 03:09:59 +00:00
parent 024b384f7a
commit 1451bf7f8e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/libraries.sld
View file

@ -20,6 +20,7 @@
)
(export
library?
library-exists?
lib:list->import-set
lib:name
lib:name->string
@ -60,6 +61,13 @@
(define (library? ast)
(tagged-list? 'define-library ast))
;; Determine if a library exists for the given import set
(define (library-exists? import . ext)
(file-exists?
(lib:import->filename
(lib:import->library-name import)
(if (null? ext) ".sld" (car ext)))))
;; 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