diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-10-29 08:57:36 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-10-29 08:57:36 -0400 |
| commit | 251ed51e9e458ab86e524ef61d8b63e780453788 (patch) | |
| tree | 95016c3e52763816f5f6f8a8b0eaa81ff5ed570c /src/geiser/emacs.scm | |
| parent | 8dda28f4f1758221f84f5cb5dc5b5ca5fd56caa9 (diff) | |
| download | geiser-guile-251ed51e9e458ab86e524ef61d8b63e780453788.tar.gz geiser-guile-251ed51e9e458ab86e524ef61d8b63e780453788.tar.bz2 | |
Fix broken module context awareness in Guile 3.0.
Diffstat (limited to 'src/geiser/emacs.scm')
| -rw-r--r-- | src/geiser/emacs.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/geiser/emacs.scm b/src/geiser/emacs.scm index 555add2..4ef58d5 100644 --- a/src/geiser/emacs.scm +++ b/src/geiser/emacs.scm @@ -35,7 +35,8 @@ Meta-command used by Geiser to emit a new line." (define-meta-command ((geiser-eval geiser) repl (mod form args) . rest) "geiser-eval module form args () Meta-command used by Geiser to evaluate and compile code." - (let ((args (syntax->datum args))) + (let ((args (syntax->datum args)) + (mod (syntax->datum mod))) (if (null? args) (call-with-error-handling (lambda () (ge:compile form mod))) |