diff options
author | Lockywolf <lockywolf@gmail.com> | 2020-05-31 12:34:53 +0800 |
---|---|---|
committer | Bastien Guerry <bzg@bzg.fr> | 2020-06-08 10:46:08 +0200 |
commit | 0eeee1a04a07286c9f1584555b01f9efe9dea4a6 (patch) | |
tree | 879a92ba1efd3b17700c92953322af55fb5dfb8d | |
parent | 1aa095ccf18f5349874d736aee05130c9ffeec16 (diff) | |
download | org-mode-0eeee1a04a07286c9f1584555b01f9efe9dea4a6.tar.gz |
ob-scheme.el: Add support for `geiser-scheme-implementation'
* lisp/ob-scheme.el (geiser-scheme-implementation)
(org-babel-execute:scheme): Add support for geiser scheme
implementation.
TINYCHANGE
-rw-r--r-- | lisp/ob-scheme.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 5ca7f87..3eee821 100644 --- a/lisp/ob-scheme.el +++ b/lisp/ob-scheme.el @@ -43,6 +43,7 @@ (require 'geiser-impl nil t) (defvar geiser-repl--repl) ; Defined in geiser-repl.el (defvar geiser-impl--implementation) ; Defined in geiser-impl.el +(defvar geiser-scheme-implementation) ; Defined in geiser-impl.el (defvar geiser-default-implementation) ; Defined in geiser-impl.el (defvar geiser-active-implementations) ; Defined in geiser-impl.el (defvar geiser-debug-show-debug-p) ; Defined in geiser-debug.el @@ -211,6 +212,7 @@ This function is called by `org-babel-execute-src-block'." (let* ((result-type (cdr (assq :result-type params))) (impl (or (when (cdr (assq :scheme params)) (intern (cdr (assq :scheme params)))) + geiser-scheme-implementation geiser-default-implementation (car geiser-active-implementations))) (session (org-babel-scheme-make-session-name |