0. #lang racket/base
1.  
2. (require
3.   (for-syntax racket/base racket/function)
4.   racket/function
5.   racket/list
6.   syntax/parse)
7.  
8. (syntax-parse #'(reprovide)
9.   ([s]
10.    (define this-file (syntax-source-module (attribute s) #t))
11.    (define-values (directory file root?) (split-path this-file))
12.    (define entries (directory-list directory #:build? #t))
13.    (define directories (filter directory-exists? entries))
14.    (define files (filter (lambda (x)
15.                            (and
16.                              (not (equal? this-file x))
17.                              (file-exists? x)))
18.                          entries))
19.    (define (not-empty? x) (not (empty? x)))
20.    (define all-files
21.      (let loop ([files*        files]
22.                 [directories*  directories])
23.        (cond
24.          [(empty? directories*) files*]
25.          [else
26.            (define iteration
27.              (filter not-empty? (flatten (map (curry directory-list #:build? #t) directories*))))
28.  
29.            (loop (append (filter file-exists? iteration) files*)
30.                  (filter directory-exists? iteration))
31.            ])))
32.    (datum->syntax #'s `(require ,@(map path->string all-files)) #'s)
33.    ))
34.  
35. (exit)

=>