diff options
| -rw-r--r-- | src/geiser/emacs.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/geiser/emacs.scm b/src/geiser/emacs.scm index 6f2fc29..555add2 100644 --- a/src/geiser/emacs.scm +++ b/src/geiser/emacs.scm @@ -35,11 +35,12 @@ 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." - (if (null? args) - (call-with-error-handling - (lambda () (ge:compile form mod))) - (let ((proc (eval form this-module))) - (ge:eval `(,proc ,@args) mod)))) + (let ((args (syntax->datum args))) + (if (null? args) + (call-with-error-handling + (lambda () (ge:compile form mod))) + (let ((proc (eval form this-module))) + (ge:eval `(,proc ,@args) mod))))) (define-meta-command ((geiser-load-file geiser) repl file) "geiser-load-file file |