From ca8b2bd07a07e727b17ebbdf8012c7d9cd135689 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 4 Jun 2023 11:23:04 -0400 Subject: cli: bundle: Remove everything but bundled modules from load path. --- chickadee/cli/bundle.scm | 2 ++ 1 file changed, 2 insertions(+) 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)))) -- cgit v1.2.3