fixing bug in extract-program-dependencies

This commit is contained in:
Alex Shinn 2015-06-13 20:59:01 +09:00
parent ef1ae88b7a
commit a05b94f3c2

View file

@ -266,7 +266,7 @@
(cdar ls)))) (cdar ls))))
(if (pair? res) (if (pair? res)
(lp (cdr ls) deps `((cond-expand ,@res) ,@cond-deps)) (lp (cdr ls) deps `((cond-expand ,@res) ,@cond-deps))
(lp deps cond-deps)))) (lp (cdr ls) deps cond-deps))))
(else (else
(append (if (pair? deps) (list (cons depends (reverse deps))) '()) (append (if (pair? deps) (list (cons depends (reverse deps))) '())
(if (pair? cond-deps) (reverse cond-deps) '()))))))) (if (pair? cond-deps) (reverse cond-deps) '())))))))