summaryrefslogtreecommitdiff
path: root/src/geiser
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-27 02:34:08 +0100
committerjao <jao@gnu.org>2022-10-27 02:34:08 +0100
commitaf47e12809629239bdf7a660a7fe326159a50cf8 (patch)
tree919544a2dc5f908cb983a46a53d4bb602d5e75ce /src/geiser
parent3ad1c3807c25283bb344512b3be3da197200ba3a (diff)
downloadgeiser-chez-af47e12809629239bdf7a660a7fe326159a50cf8.tar.gz
geiser-chez-af47e12809629239bdf7a660a7fe326159a50cf8.tar.bz2
fix: don't pollute global namespace with (geiser)'s exports
Diffstat (limited to 'src/geiser')
-rw-r--r--src/geiser/geiser.ss5
1 files changed, 3 insertions, 2 deletions
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<?