unbreak compile-directory

This commit is contained in:
Matthew Flatt 2015-09-02 17:58:34 -06:00
parent 8ee717520f
commit ddb683e1f2

View File

@ -150,6 +150,7 @@
(let ([p* (build-path dir p)]) (let ([p* (build-path dir p)])
(if (and (directory-exists? p*) (not (member p omit-paths))) (if (and (directory-exists? p*) (not (member p omit-paths)))
(compile-directory-visitor p* (c-get-info/full p*) worker omit-root (compile-directory-visitor p* (c-get-info/full p*) worker omit-root
#:has-module-suffix? has-module-suffix?
#:verbose verbose? #:verbose verbose?
#:skip-path orig-skip-path #:skip-path orig-skip-path
#:skip-paths orig-skip-paths #:skip-paths orig-skip-paths