Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added lib:inlines

Browse source
This commit is contained in:
Justin Ethier 2017-04-30 18:52:21 -04:00
parent a2c0d8c511
commit 9a98356589
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/libraries.sld
View file

@ -35,6 +35,7 @@
lib:cond-expand-decls
lib:includes
lib:include-c-headers
lib:inlines
lib:import-set:library-name?
lib:import-set->import-set
lib:import->library-name
@ -188,6 +189,15 @@
(tagged-list? 'include-c-header code))
(cddr ast))))
(define (lib:inlines ast)
(map
(lambda (inc-lst)
(cadr inc-lst))
(filter
(lambda (code)
(tagged-list? 'inline code))
(cddr ast))))
;; TODO: include-ci, cond-expand
;TODO: maybe just want a function that will take a define-library expression and expand any top-level cond-expand expressions.