summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-10 05:11:31 +0100
committerjao <jao@gnu.org>2022-10-10 05:11:31 +0100
commit3996898343681ea082b64c3d5d393400e6af708f (patch)
tree5a2f2e9903201753d3ff502324e4e547e49179ec
parent7f12bcfe8b62a06cd9bce15b48d76ec2ebf66de4 (diff)
downloadgeiser-chez-3996898343681ea082b64c3d5d393400e6af708f.tar.gz
geiser-chez-3996898343681ea082b64c3d5d393400e6af708f.tar.bz2
add-to-load-path
-rw-r--r--src/geiser/geiser.ss10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index c39926e..c982006 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -8,7 +8,8 @@
geiser:newline
geiser:macroexpand
geiser:symbol-location
- geiser:module-location)
+ geiser:module-location
+ geiser:add-to-load-path)
(import (chezscheme))
(define-syntax as-string
@@ -60,7 +61,12 @@
(lambda ()
(with-output-to-string
(lambda () (maybe-compile-file filename output-filename)))
- (load output-filename)))))
+ (parameterize ([compile-imported-libraries #t])
+ (load output-filename))))))
+
+ (define (geiser:add-to-load-path path)
+ (let ((p (cons path path)))
+ (library-directories (cons p (remove p (library-directories))))))
(define string-prefix?
(lambda (x y)