removing debug output

This commit is contained in:
Alex Shinn 2017-01-30 22:51:52 +09:00
parent 7c12b0aaf3
commit 812dc59b20

View file

@ -2064,7 +2064,6 @@
(find (lambda (x) (equal? lib-name (library-name x))) (find (lambda (x) (equal? lib-name (library-name x)))
(package-libraries pkg))) (package-libraries pkg)))
ordered-lib-names)) ordered-lib-names))
(_ (begin (write `(topo: ,(map library-name (package-libraries pkg)) -> ,ordered-lib-names -> ,ordered-libs)) (newline)))
(libs (filter-map (lambda (lib) (build-library impl cfg lib dir)) (libs (filter-map (lambda (lib) (build-library impl cfg lib dir))
ordered-libs))) ordered-libs)))
(if (test-package impl cfg pkg dir) (if (test-package impl cfg pkg dir)