#lang racket/base (require racket/runtime-path) (define-runtime-path here ".") (define-runtime-path modules "modules") (current-library-collection-paths (cons here (current-library-collection-paths))) (define (require-path p) (dynamic-require `(file ,(path->string p)) #f)) (for ([f (directory-list modules #:build? #t)]) (if (file-exists? f) (require-path f) (require-path (build-path f "default.rkt"))))