From bdadc453e030222d939937b8867114b768c1aabc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 21 Aug 2011 11:43:23 -0600 Subject: [PATCH] fix `compile-collection-zos' --- collects/compiler/compiler-unit.rkt | 8 +++----- collects/tests/compiler/collection-zos.rkt | 5 +++++ 2 files changed, 8 insertions(+), 5 deletions(-) create mode 100644 collects/tests/compiler/collection-zos.rkt diff --git a/collects/compiler/compiler-unit.rkt b/collects/compiler/compiler-unit.rkt index cde16551fb..43d7c509ba 100644 --- a/collects/compiler/compiler-unit.rkt +++ b/collects/compiler/compiler-unit.rkt @@ -190,14 +190,12 @@ dir)) (for/fold ([init init]) ([p (directory-list dir)]) (let ([p* (build-path dir p)]) - (worker - (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 - #:verbose verbose? + #:verbose verbose? #:skip-path skip-path #:skip-doc-sources? skip-docs?) - null) - init)))) + init)))) init)))) (define (compile-directory dir info #:verbose [verbose? #t] diff --git a/collects/tests/compiler/collection-zos.rkt b/collects/tests/compiler/collection-zos.rkt new file mode 100644 index 0000000000..f74074d856 --- /dev/null +++ b/collects/tests/compiler/collection-zos.rkt @@ -0,0 +1,5 @@ +#lang racket +(require compiler/compiler) + +;; minimal sanity check: +(compile-collection-zos "setup")