diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld index f41e1b04..6f148614 100644 --- a/scheme/cyclone/libraries.sld +++ b/scheme/cyclone/libraries.sld @@ -190,13 +190,15 @@ (cddr ast)))) (define (lib:inlines ast) - (map - (lambda (inc-lst) - (cadr inc-lst)) - (filter - (lambda (code) - (tagged-list? 'inline code)) - (cddr ast)))) + (apply + append + (map + (lambda (inc-lst) + (cdr inc-lst)) + (filter + (lambda (code) + (tagged-list? 'inline code)) + (cddr ast))))) ;; TODO: include-ci, cond-expand