From 3996898343681ea082b64c3d5d393400e6af708f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 10 Oct 2022 05:11:31 +0100
Subject: add-to-load-path

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

(limited to 'src/geiser')

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)
-- 
cgit v1.2.3