summaryrefslogtreecommitdiff
path: root/src/geiser/emacs.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-10-29 08:57:36 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-10-29 08:57:36 -0400
commit251ed51e9e458ab86e524ef61d8b63e780453788 (patch)
tree95016c3e52763816f5f6f8a8b0eaa81ff5ed570c /src/geiser/emacs.scm
parent8dda28f4f1758221f84f5cb5dc5b5ca5fd56caa9 (diff)
downloadgeiser-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.scm3
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)))