From af47e12809629239bdf7a660a7fe326159a50cf8 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 27 Oct 2022 02:34:08 +0100
Subject: fix: don't pollute global namespace with (geiser)'s exports

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

(limited to 'src')

diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index 0af9807..aeb719e 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -22,7 +22,8 @@
           geiser:symbol-location
           geiser:module-location
           geiser:add-to-load-path
-          geiser:symbol-documentation)
+          geiser:symbol-documentation
+          quote)
 
   (import (chezscheme))
   (import (geiser-data))
@@ -201,7 +202,7 @@
 
   (define (geiser:ge:eval lib form)
     (parameterize ([current-library lib])
-      (call-with-result (lambda () (eval form)))))
+      (call-with-result (lambda () (eval form (environment '(geiser)))))))
 
   (define (geiser:completions prefix)
     (sort string-ci<?
-- 
cgit v1.2.3