diff options
| author | jao <jao@gnu.org> | 2022-10-10 05:11:31 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-10 05:11:31 +0100 |
| commit | 3996898343681ea082b64c3d5d393400e6af708f (patch) | |
| tree | 5a2f2e9903201753d3ff502324e4e547e49179ec /src/geiser | |
| parent | 7f12bcfe8b62a06cd9bce15b48d76ec2ebf66de4 (diff) | |
| download | geiser-chez-3996898343681ea082b64c3d5d393400e6af708f.tar.gz geiser-chez-3996898343681ea082b64c3d5d393400e6af708f.tar.bz2 | |
add-to-load-path
Diffstat (limited to 'src/geiser')
| -rw-r--r-- | src/geiser/geiser.ss | 10 |
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) |