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

bugfixes

Browse source
This commit is contained in:
Justin Ethier 2017-04-30 19:03:44 -04:00
parent 9a98356589
commit edccb56163
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scheme/cyclone/libraries.sld
View file

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