[nongnu] elpa/geiser-chez 3996898343 14/15: add-to-load-path

[ELPA Syncer]

branch: elpa/geiser-chez
commit 3996898343681ea082b64c3d5d393400e6af708f
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    add-to-load-path
---
 src/geiser/geiser.ss | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index c39926e837..c982006f12 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)