From 7837d810d7859fc595aac9b98a59e7b6955ca991 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 24 Oct 2021 11:50:14 -0400 Subject: cli: bundle: Add project directory to load path. --- chickadee/cli/bundle.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/chickadee/cli/bundle.scm b/chickadee/cli/bundle.scm index 3a3fe68..0e3ad3b 100644 --- a/chickadee/cli/bundle.scm +++ b/chickadee/cli/bundle.scm @@ -399,11 +399,19 @@ Create a redistributable binary tarball using the settings in FILE, or (define %default-options '()) (define (chickadee-bundle . args) + (define (make-bundle* file-name) + ;; Ensure file-name is an absolute file name. + (let ((file-name (if (string-prefix? "/" file-name) + file-name + (string-append (getcwd) "/" file-name)))) + (add-to-load-path (dirname file-name)) + (set! %load-compiled-path (cons (dirname file-name) %load-compiled-path)) + (make-bundle (primitive-load file-name)))) (let ((opts (simple-args-fold args %options %default-options))) (match (operands opts) (() - (make-bundle (primitive-load "bundle.scm"))) + (make-bundle* "bundle.scm")) ((file-name) - (make-bundle (primitive-load file-name))) + (make-bundle* file-name)) (_ (leave "too many arguments specified. just pass a Scheme file name."))))) -- cgit v1.2.3