blob: af8296317cb632e8de1abfccb4e0b119b801dd12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#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"))))
|