From 11524350c6c4d887665d753ce5d160ad40a61b44 Mon Sep 17 00:00:00 2001 From: tilpner Date: Mon, 23 Apr 2018 00:04:17 +0200 Subject: Add option to use vendored collects --- main.rkt | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.3