unbreak compile-directory

2015-09-02 17:58:34 -06:00 · 2015-09-02 17:58:34 -06:00 · ddb683e1f2
commit ddb683e1f2
parent 8ee717520f
1 changed files with 1 additions and 0 deletions
--- a/racket/collects/compiler/compiler.rkt
+++ b/racket/collects/compiler/compiler.rkt
@ -150,6 +150,7 @@
              (let ([p* (build-path dir p)])
                (if (and (directory-exists? p*) (not (member p omit-paths)))
                    (compile-directory-visitor p* (c-get-info/full p*) worker omit-root
+                                               #:has-module-suffix? has-module-suffix?
                                               #:verbose verbose?
                                               #:skip-path orig-skip-path
                                               #:skip-paths orig-skip-paths