Add option to use vendored collects

1 files changed, 8 insertions, 1 deletions

diff --git a/main.rkt b/main.rkt
index af82963..8244116 100644
--- a/main.rkt
+++ b/main.rkt
@@ -3,7 +3,14 @@
 (define-runtime-path here ".")
 (define-runtime-path modules "modules")
 
-(current-library-collection-paths (cons here (current-library-collection-paths)))
+(define (add-library-path path)
+  (current-library-collection-paths
+    (cons path (current-library-collection-paths))))
+
+(define vendor (getenv "VENDOR"))
+(when vendor (add-library-path (string->path vendor)))
+
+(add-library-path here)
 
 (define (require-path p)
   (dynamic-require `(file ,(path->string p)) #f))