diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld index dddc77c4..f41e1b04 100644 --- a/scheme/cyclone/libraries.sld +++ b/scheme/cyclone/libraries.sld @@ -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.