diff options
| author | tilpner | 2018-04-17 23:13:23 +0200 |
|---|---|---|
| committer | tilpner | 2018-04-17 23:13:23 +0200 |
| commit | 5e05e5e7e5c363131d6fb3e2f11e761c1f69c222 (patch) | |
| tree | 25ee061b145a324bd71be1e6bdabb09b9c815b52 /main.rkt | |
| download | meep-5e05e5e7e5c363131d6fb3e2f11e761c1f69c222.tar.gz meep-5e05e5e7e5c363131d6fb3e2f11e761c1f69c222.tar.xz meep-5e05e5e7e5c363131d6fb3e2f11e761c1f69c222.zip | |
Initial commit
Diffstat (limited to 'main.rkt')
| -rw-r--r-- | main.rkt | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/main.rkt b/main.rkt new file mode 100644 index 0000000..af82963 --- /dev/null +++ b/main.rkt @@ -0,0 +1,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")))) |