This commit is contained in:
Justin Ethier 2017-04-30 19:03:44 -04:00
parent 9a98356589
commit edccb56163

View file

@ -190,13 +190,15 @@
(cddr ast))))
(define (lib:inlines ast)
(apply
append
(map
(lambda (inc-lst)
(cadr inc-lst))
(cdr inc-lst))
(filter
(lambda (code)
(tagged-list? 'inline code))
(cddr ast))))
(cddr ast)))))
;; TODO: include-ci, cond-expand