summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-06-04 11:23:04 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-06-04 11:23:04 -0400
commitca8b2bd07a07e727b17ebbdf8012c7d9cd135689 (patch)
tree09bdaf3f9ba494c548e15bd336b3bafeeddb301a
parent1b8097ccb89ca043282f79fb5a0aeaf71737b602 (diff)
cli: bundle: Remove everything but bundled modules from load path.
-rw-r--r--chickadee/cli/bundle.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/chickadee/cli/bundle.scm b/chickadee/cli/bundle.scm
index 4490356..4d431c5 100644
--- a/chickadee/cli/bundle.scm
+++ b/chickadee/cli/bundle.scm
@@ -290,6 +290,8 @@
((play)
(let ((exp (with-output-to-string
(lambda ()
+ (write '(set! %load-path (list (car %load-path))))
+ (write '(set! %load-compiled-path (list (car %load-compiled-path))))
(write '(use-modules (chickadee cli play)))
(write `(chickadee-play "init.scm" ,@args))))))
(string-append "-c " (shell-escape exp))))