diff options
| author | jao <jao@gnu.org> | 2022-10-27 02:34:08 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-27 02:34:08 +0100 |
| commit | af47e12809629239bdf7a660a7fe326159a50cf8 (patch) | |
| tree | 919544a2dc5f908cb983a46a53d4bb602d5e75ce /src | |
| parent | 3ad1c3807c25283bb344512b3be3da197200ba3a (diff) | |
| download | geiser-chez-af47e12809629239bdf7a660a7fe326159a50cf8.tar.gz geiser-chez-af47e12809629239bdf7a660a7fe326159a50cf8.tar.bz2 | |
fix: don't pollute global namespace with (geiser)'s exports
Diffstat (limited to 'src')
| -rw-r--r-- | src/geiser/geiser.ss | 5 |
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<? |