summaryrefslogtreecommitdiff
path: root/src/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'src/geiser')
-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)