From 5e05e5e7e5c363131d6fb3e2f11e761c1f69c222 Mon Sep 17 00:00:00 2001
From: tilpner
Date: Tue, 17 Apr 2018 23:13:23 +0200
Subject: Initial commit

---
 main.rkt | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 main.rkt

(limited to 'main.rkt')

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"))))
-- 
cgit v1.2.3